(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    280476,       7398]
NotebookOptionsPosition[    254569,       6926]
NotebookOutlinePosition[    255059,       6946]
CellTagsIndexPosition[    255016,       6943]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Global definitions", "Section",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, 
   3.760632508859365*^9, {3.760679169140106*^9, 3.7606791775879383`*^9}, {
   3.78090538693896*^9, 
   3.780905391721757*^9}},ExpressionUUID->"14656a38-3554-4a83-a92b-\
19dd9f26f677"],

Cell[CellGroupData[{

Cell["\<\
Computing the order of a matrix m with integer entries modulo ideal I=(p)\
\>", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.76063016392813*^9, 
   3.760630165007289*^9}, {3.760632526560926*^9, 3.760632544154763*^9}, 
   3.7606344015819817`*^9, {3.760679249706262*^9, 3.760679259845272*^9}, {
   3.7606793059838247`*^9, 3.760679339404605*^9}, {3.772553980849586*^9, 
   3.772554013019011*^9}, {3.77255410366192*^9, 
   3.772554111891906*^9}},ExpressionUUID->"610ac542-50a6-4bbb-9f63-\
b1922021cb61"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"MatrixReductionOrder", "[", 
    RowBox[{"m_", ",", "p_", ",", 
     RowBox[{"maxOrder_:", " ", 
      RowBox[{"10", "^", "10"}]}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n", "=", "1"}], ",", 
       RowBox[{"id", "=", 
        RowBox[{"IdentityMatrix", "[", 
         RowBox[{"Length", "[", "m", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"NestWhile", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"n", "++"}], ";", 
           RowBox[{"Mod", "[", 
            RowBox[{
             RowBox[{"m", ".", "#"}], ",", "p"}], "]"}]}], ")"}], "&"}], ",", 
        RowBox[{"Mod", "[", 
         RowBox[{"m", ",", "p"}], "]"}], ",", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"And", "@@", 
           RowBox[{"(", 
            RowBox[{"PossibleZeroQ", "/@", 
             RowBox[{"Flatten", "[", 
              RowBox[{"#", "-", "id"}], "]"}]}], ")"}]}]}], "&"}], ",", "1", 
        ",", "maxOrder"}], "]"}], ";", "n"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.762428455725996*^9, 3.7624285047629557`*^9}, {
  3.762428944982642*^9, 3.7624289472156982`*^9}, {3.762429038247916*^9, 
  3.7624290436705027`*^9}, {3.7624291423465776`*^9, 3.76242918452512*^9}, {
  3.76242976434914*^9, 3.762429802254305*^9}, {3.762708239927361*^9, 
  3.7627082517694407`*^9}, {3.762709111240011*^9, 3.762709120551537*^9}},
 CellLabel->
  "In[665]:=",ExpressionUUID->"e3862526-5b9f-4a42-8dc3-dbdd97875f95"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Polytope P_4", "Section",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.76063016392813*^9, 
   3.760630165007289*^9}, {3.760632526560926*^9, 3.760632544154763*^9}, 
   3.7606344015819817`*^9, {3.760634613106736*^9, 3.760634616976028*^9}, {
   3.762708265980031*^9, 3.76270827385408*^9}, {3.7629378924140368`*^9, 
   3.762937893952073*^9}, {3.762970875023519*^9, 
   3.762970876057626*^9}},ExpressionUUID->"4fe39d2d-a7ae-47be-adfb-\
2dbc19ef7abc"],

Cell[CellGroupData[{

Cell["Quadratic form associated to polytope P_4 in H^4", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.76063016392813*^9, 
   3.760630165007289*^9}, {3.760632526560926*^9, 3.760632544154763*^9}, 
   3.7606344015819817`*^9, {3.762708292028206*^9, 3.762708302257427*^9}, {
   3.762709131102899*^9, 3.762709132533449*^9}, {3.762937897549541*^9, 
   3.762937900167193*^9}, {3.762959936889648*^9, 3.7629599705813427`*^9}, {
   3.7629708971068974`*^9, 3.762970902465459*^9}, {3.763102109038211*^9, 
   3.763102115731619*^9}},ExpressionUUID->"586cf5a7-92da-4e89-8aad-\
2a8dbfa9eab8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f4", "[", 
    RowBox[{"{", 
     RowBox[{"x0_", ",", "x1_", ",", "x2_", ",", "x3_", ",", "x4_"}], "}"}], 
    "]"}], "=", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["x0", "2"]}], "+", 
    SuperscriptBox["x1", "2"], "+", 
    SuperscriptBox["x2", "2"], "+", 
    SuperscriptBox["x3", "2"], "+", 
    SuperscriptBox["x4", "2"]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.75833102477936*^9, 3.758331038483093*^9}, {
  3.758331108311313*^9, 3.758331114658369*^9}, {3.7583341660018034`*^9, 
  3.758334169783081*^9}, {3.7583346817301817`*^9, 3.7583346915199986`*^9}, {
  3.758334955891484*^9, 3.7583349570170317`*^9}, {3.7583351720451264`*^9, 
  3.758335174690775*^9}, {3.7583352241967697`*^9, 3.7583352249319587`*^9}, {
  3.7583358468129377`*^9, 3.7583358486468563`*^9}, {3.758479404237545*^9, 
  3.7584794214592595`*^9}, {3.7584823877991977`*^9, 3.758482393962841*^9}, {
  3.761122412284438*^9, 3.761122489627466*^9}, {3.761122537856392*^9, 
  3.761122539260841*^9}, {3.76112262761552*^9, 3.761122628487047*^9}, {
  3.762708307469242*^9, 3.762708322429039*^9}, {3.762878895219989*^9, 
  3.762878895911748*^9}, {3.762937905205711*^9, 3.762937967499435*^9}, {
  3.763104961248209*^9, 3.763104972128666*^9}},
 CellLabel->
  "In[666]:=",ExpressionUUID->"6b64ac43-4543-44e4-b995-6564add16920"]
}, Closed]],

Cell[CellGroupData[{

Cell["Standard basis of R^{1,4}", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.760630037438387*^9, 
  3.760630046659821*^9}, {3.762708340776894*^9, 3.762708341732929*^9}, {
  3.762937987276425*^9, 3.7629379877063513`*^9}, {3.762970905217018*^9, 
  3.762970905366371*^9}},ExpressionUUID->"caa59798-9eb5-4c6f-84bf-\
6e76f6475984"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"v0", ",", "v1", ",", "v2", ",", "v3", ",", "v4"}], "}"}], "=", 
   RowBox[{"IdentityMatrix", "[", "5", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.741986259869416*^9, 3.7419862881029577`*^9}, {
   3.753271317323329*^9, 3.753271354773836*^9}, {3.754247538035009*^9, 
   3.7542475546382313`*^9}, {3.7542655074583955`*^9, 3.754265525374155*^9}, {
   3.7583347561999874`*^9, 3.7583347762341795`*^9}, {3.758479559595871*^9, 
   3.758479574630477*^9}, {3.7627083453427973`*^9, 3.7627083525649767`*^9}, 
   3.762938074184492*^9, {3.763104983764145*^9, 3.763104986492885*^9}},
 CellLabel->
  "In[667]:=",ExpressionUUID->"50a66ac0-62f9-4740-9d9d-ba0add622f50"]
}, Closed]],

Cell[CellGroupData[{

Cell["Reflection associated to a given root", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.7606300544805603`*^9, 
  3.7606300665456867`*^9}},ExpressionUUID->"0240d1ab-7609-44f6-84ae-\
bbc687460272"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ref", "[", 
    RowBox[{"{", 
     RowBox[{"x0_", ",", "x1_", ",", "x2_", ",", "x3_", ",", "x4_"}], "}"}], 
    "]"}], "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v0", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], "x0"}], 
          RowBox[{"f4", "[", 
           RowBox[{"{", 
            RowBox[{"x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4"}], "}"}],
            "]"}]], 
         RowBox[{"{", 
          RowBox[{"x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4"}], 
          "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v1", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x1"}], 
          RowBox[{"f4", "[", 
           RowBox[{"{", 
            RowBox[{"x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4"}], "}"}],
            "]"}]], 
         RowBox[{"{", 
          RowBox[{"x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4"}], 
          "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v2", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x2"}], 
          RowBox[{"f4", "[", 
           RowBox[{"{", 
            RowBox[{"x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4"}], "}"}],
            "]"}]], 
         RowBox[{"{", 
          RowBox[{"x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4"}], 
          "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v3", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x3"}], 
          RowBox[{"f4", "[", 
           RowBox[{"{", 
            RowBox[{"x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4"}], "}"}],
            "]"}]], 
         RowBox[{"{", 
          RowBox[{"x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4"}], 
          "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v4", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x4"}], 
          RowBox[{"f4", "[", 
           RowBox[{"{", 
            RowBox[{"x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4"}], "}"}],
            "]"}]], 
         RowBox[{"{", 
          RowBox[{"x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4"}], 
          "}"}]}]}], "}"}], "]"}], ",", "2"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdxU9oUnEAB/A3cdDCdDTBLVmlkiwFG20sCzy8Q27tsHCDgglCa8sg9EmY
Y0QXMZLAGZuH2h9Qam5D2WZUczicFIxB+9OhdAthZB5EnzIZk40i+33f4cNH
NsD0DvEoipITmBnfWLj5q0Bbf9cu4R7V2lesPtzkTo4zadxdmc1j4ds3JVxp
f1LGyzPXqtjYnODryeJvWTF++FfehC1+oQwP+sVyfCMfuoL3/WOtWPM++Qg7
AzEG++xM22aFLHZzZyzUdRweLXALBgN7+PU9Vx5nDWrRFtmh0nF3vbRE5o4L
NC8V/4hNov7hCPlz/f4z/O7fidlOsbTPtmjFphfCp1hq0XCrXo24scbU4cWT
K7FFfHD2iLtBEJxYJXu3p6bxuv72LD5SxCPYqe1bSvFZuv2qjTvnKEdxkB1L
4B9xZQoXBwx7uPfPfEfmFEtL1Ad63H0n1XOhjqXT96smvGtuDOJScOMDNl/+
/lhGlt7KufB5ofWBnMx0au1Y8+l5jYKsOzN0GmsVIYmOnLu7fhHv/Kz36snH
W5cmcdSjzOKWcAv3uS/GaQ/ZWeSF8X8r6xSz
  "],
 CellLabel->
  "In[668]:=",ExpressionUUID->"6a29a262-c608-4008-ad3a-3ad963063c5c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Outer normals for P_4 (necessary for actual computations)", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.760630081373625*^9, 
  3.760630103352571*^9}, {3.76270856113221*^9, 3.7627085628561077`*^9}, {
  3.762959615866358*^9, 3.762959616891176*^9}, {3.7629599780223722`*^9, 
  3.76295998186263*^9}, {3.762970908815489*^9, 
  3.762970938074401*^9}},ExpressionUUID->"242f1bf9-b52c-454f-a26c-\
f6c70bf4069e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"e1", "=", 
   RowBox[{"-", "v1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{"-", "v2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e3", "=", 
   RowBox[{"-", "v3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e4", "=", 
   RowBox[{"-", "v4"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e5", "=", 
   RowBox[{"v0", "+", "v1", "+", "v2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e6", "=", 
   RowBox[{"v0", "+", "v3", "+", "v4"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdymkog3EAx/HHkVEmL6y5kiljLFdKUfTkfGFajrxDmEKmWJIXmHLkqtUm
bZKi9TgbhkLLVY5sjrKaN6JYMkqxRi3+v/+Lb583X1F9e7nCl2GYWBKUd5q3
Oc8bm2O72IMn3tpDKFR4qDLHxBk0GELO4ZNa1btO7Nm67ofCgP6I+J83Ns30
GAnjWivkEqJOY6Q6vVEWeJyXS11Qir+SiD76mG8YM5v+AwsqzNSZT8l2MVHM
NO5A98jUEcxWyk7g973RCmWb9zaoLRN0qBgXq13M7IKbN4nJXcRfh1cKx4f8
smCTbzP1UvqcB9XGQhYqnYMNkDdgb4Qr2Vdt0JPgpNpHRZ2wW+egaq0D3TB4
cpJ6a19Ww42qL+pn3fAoLDUIdbAmvMMLoxO5P9gifNjREyUj3C4UKE4PoJGf
cAirw+avYFNvyQ18SHkX7RHnXp8y4DTPKr3zd7GcPjQFavj5wZeBLtZtWQqB
uakvK0VB5Mu3mmDDR+XqBLFIy5nh2ph7H5r6WizwHzTOB3Q=
  "],
 CellLabel->
  "In[669]:=",ExpressionUUID->"1f1ee5de-24f9-47f0-a0e9-29be6458ba84"]
}, Closed]],

Cell[CellGroupData[{

Cell["Reflections in the respective bounding hyperplanes of P_4", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.760630171933566*^9, 
  3.760630181461022*^9}, {3.762708636578536*^9, 3.7627086376368303`*^9}, {
  3.762959987192686*^9, 3.76295999272089*^9}, {3.762970944773531*^9, 
  3.762970960554573*^9}},ExpressionUUID->"2ff5c21b-63ac-45d6-a0f5-\
f0dd525ead4b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"s1", "=", 
   RowBox[{"Ref", "[", "e1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s2", "=", 
   RowBox[{"Ref", "[", "e2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s3", "=", 
   RowBox[{"Ref", "[", "e3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s4", "=", 
   RowBox[{"Ref", "[", "e4", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s5", "=", 
   RowBox[{"Ref", "[", "e5", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s6", "=", 
   RowBox[{"Ref", "[", "e6", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7583349010431814`*^9, 3.7583349033210793`*^9}, {
  3.7583349411761537`*^9, 3.7583349412939816`*^9}, {3.758335374359543*^9, 
  3.758335432323221*^9}, {3.75834115524435*^9, 3.7583411844974585`*^9}, {
  3.758413279687951*^9, 3.7584132884369483`*^9}, {3.758413462371809*^9, 
  3.7584134717453995`*^9}, {3.758479773657228*^9, 3.7584797822090273`*^9}, {
  3.760630209482951*^9, 3.760630218833775*^9}, {3.760630349926944*^9, 
  3.760630361264076*^9}, {3.762708619479815*^9, 3.7627086929339123`*^9}, {
  3.76296001389581*^9, 3.762960034492182*^9}, {3.7629600677255297`*^9, 
  3.7629601070885468`*^9}, {3.7629602512915173`*^9, 3.762960251374549*^9}, {
  3.763105286476507*^9, 3.763105287098308*^9}},
 CellLabel->
  "In[675]:=",ExpressionUUID->"c9498557-9dd8-4086-bfe6-440cc515398a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Matrices of reflections", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.760630171933566*^9, 
  3.760630181461022*^9}, {3.760632417848068*^9, 3.760632422351159*^9}, {
  3.76296033310625*^9, 3.762960363455429*^9}, {3.762970967077557*^9, 
  3.762970967887658*^9}},ExpressionUUID->"7e737d73-cc39-4cf9-af68-\
57d9476e8d7c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s1", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7606323547650347`*^9, 3.760632356271002*^9}},
 CellLabel->
  "In[681]:=",ExpressionUUID->"dc8b00c0-699f-4106-950d-9f8e7a350a6d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "1", "0", "0"},
     {"0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760632362261162*^9, 3.762428543581601*^9, 3.762428951282324*^9, 
   3.7624290536061287`*^9, 3.7624292453107777`*^9, 3.7624297331612997`*^9, 
   3.7624298086711807`*^9, 3.7627087133843517`*^9, 3.762749183652025*^9, 
   3.762749372695812*^9, 3.762750366044532*^9, 3.762878540443211*^9, 
   3.762918955327547*^9, 3.762960116523107*^9, 3.762960258149708*^9, 
   3.762965961774432*^9, 3.762966037379425*^9, 3.76296637060107*^9, 
   3.762967519418044*^9, 3.7629676644115*^9, 3.763105292971806*^9, 
   3.780905423105032*^9, {3.782564571028844*^9, 3.782564597304851*^9}},
 CellLabel->
  "Out[681]//MatrixForm=",ExpressionUUID->"92bd2d9f-b420-46d8-af00-\
954f12736007"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s2", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.760632385278757*^9, 3.7606323853989058`*^9}},
 CellLabel->
  "In[682]:=",ExpressionUUID->"e288c437-0db0-4f4d-8135-8f0f6e13934d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606323864548187`*^9, 3.7624285464186697`*^9, 3.762428951348081*^9, 
   3.762429053671422*^9, 3.762429245377797*^9, 3.76242973322726*^9, 
   3.762429808736972*^9, 3.762708716071094*^9, 3.762749186599688*^9, 
   3.762749374478026*^9, 3.7627503677101727`*^9, 3.762878540507309*^9, 
   3.762918955403771*^9, 3.762960118687675*^9, 3.762965963971004*^9, 
   3.762966037444305*^9, 3.762966370663684*^9, 3.762967519466552*^9, 
   3.7629676644451923`*^9, 3.763105295573387*^9, 3.780905425540485*^9, {
   3.78256457104985*^9, 3.7825645973273153`*^9}},
 CellLabel->
  "Out[682]//MatrixForm=",ExpressionUUID->"7b61e9d9-dc3f-4ce5-94e6-\
6e675a77d681"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s3", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7606323936124573`*^9, 3.7606323936793947`*^9}},
 CellLabel->
  "In[683]:=",ExpressionUUID->"a82dd587-5344-4842-999d-4ac4e4db0c93"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0"},
     {"0", "0", "1", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760632394725415*^9, 3.762428548900743*^9, 3.76242895141457*^9, 
   3.7624290537392178`*^9, 3.762429245443386*^9, 3.76242973329243*^9, 
   3.762429808803762*^9, 3.76270871885748*^9, 3.762749189267062*^9, 
   3.76274937713065*^9, 3.762750370127913*^9, 3.762878540572988*^9, 
   3.762918955470964*^9, 3.762960121554593*^9, 3.7629659665717773`*^9, 
   3.76296603751081*^9, 3.762966370709147*^9, 3.7629675195203447`*^9, 
   3.762967664469615*^9, 3.763105297945941*^9, 3.780905427946439*^9, {
   3.7825645710588512`*^9, 3.7825645973349533`*^9}},
 CellLabel->
  "Out[683]//MatrixForm=",ExpressionUUID->"527cdc8a-8612-4137-b672-\
9a76b82cac70"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s4", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.760632449784658*^9, 3.760632449860031*^9}},
 CellLabel->
  "In[684]:=",ExpressionUUID->"de143f0a-2f4f-4f38-a08f-88362606a4ab"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0"},
     {"0", "0", "1", "0", "0"},
     {"0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606324511054173`*^9, 3.7624285513554153`*^9, 3.762428951481024*^9, 
   3.762429053804844*^9, 3.762429245510454*^9, 3.7624297333418627`*^9, 
   3.762429808870586*^9, 3.7627087215542097`*^9, 3.762749191983335*^9, 
   3.762749379965308*^9, 3.7627503724140387`*^9, 3.7628785406395073`*^9, 
   3.7629189555375566`*^9, 3.762960125590749*^9, {3.762965968821907*^9, 
   3.762965984203314*^9}, 3.762966037577628*^9, 3.762966370763731*^9, 
   3.762967519564869*^9, 3.76296766451084*^9, 3.763105300290457*^9, 
   3.7809054313449583`*^9, {3.782564571082491*^9, 3.782564597359208*^9}},
 CellLabel->
  "Out[684]//MatrixForm=",ExpressionUUID->"68eff6a8-3457-45e5-b275-\
c1e32dfdf8bb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s5", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.76063245590226*^9, 3.7606324559798326`*^9}},
 CellLabel->
  "In[685]:=",ExpressionUUID->"894f7f7f-a038-45c8-93ff-e8378c9c660d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"2", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606324568987303`*^9, 3.762428553770928*^9, 3.762428951547762*^9, 
   3.762429053872171*^9, 3.76242924557793*^9, 3.762429733410685*^9, 
   3.762429808937051*^9, 3.762708724172076*^9, 3.762749197488989*^9, 
   3.7627493824990807`*^9, 3.7627503752302437`*^9, 3.762878540705802*^9, 
   3.762918955604467*^9, 3.762960128530445*^9, {3.762965971540595*^9, 
   3.762965986560651*^9}, 3.762966037630582*^9, 3.7629663708305473`*^9, 
   3.762967519617796*^9, 3.762967664545809*^9, 3.7631053026855392`*^9, 
   3.780905434235654*^9, {3.782564571091591*^9, 3.782564597367045*^9}},
 CellLabel->
  "Out[685]//MatrixForm=",ExpressionUUID->"238513f9-7b35-48a1-9e9e-\
b51b1fc00a65"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s6", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7606324612676764`*^9, 3.760632461327094*^9}},
 CellLabel->
  "In[686]:=",ExpressionUUID->"e4d434a9-0646-41c7-85fd-a57f607b9ddf"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", "0", "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"0", "1", "0", "0", "0"},
     {"0", "0", "1", "0", "0"},
     {"2", "0", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}]},
     {"2", "0", "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760632462283785*^9, 3.762428555638295*^9, 3.762428951614793*^9, 
   3.762429053938693*^9, 3.762429245644042*^9, 3.762429733475613*^9, 
   3.762429809002898*^9, 3.762708727124456*^9, 3.7627492001947737`*^9, 
   3.762749385035384*^9, 3.762750377550124*^9, 3.762878540772588*^9, 
   3.7629189556706333`*^9, 3.762960145150003*^9, {3.7629601768072033`*^9, 
   3.762960191080309*^9}, {3.762965974041552*^9, 3.762965989877945*^9}, 
   3.7629660376944647`*^9, 3.7629663708973083`*^9, 3.762967519666401*^9, 
   3.76296766457812*^9, 3.76310530521835*^9, 3.780905436949666*^9, {
   3.782564571113289*^9, 3.782564597391541*^9}},
 CellLabel->
  "Out[686]//MatrixForm=",ExpressionUUID->"67435d1c-7528-41b1-a058-\
e894d84bfbeb"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
An infinite-order orientation-reversing element \\delta in the kernel of \
retraction R\
\>", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.7606302283738327`*^9, 
  3.760630247815802*^9}, {3.762431157743984*^9, 
  3.762431158500445*^9}},ExpressionUUID->"aab84984-52da-463b-a117-\
0f46e675ce0c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"delta4", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"s1", ".", "s2", ".", "s5"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "delta4", "]"}]}], "Input",
 CellChangeTimes->{{3.758415296056778*^9, 3.7584153081303625`*^9}, {
  3.7584824392905817`*^9, 3.758482458591383*^9}, {3.758482617271708*^9, 
  3.758482619601139*^9}, {3.7606302001741953`*^9, 3.7606302046235657`*^9}, {
  3.760630284934063*^9, 3.760630289932104*^9}, {3.760630369355485*^9, 
  3.7606303781375217`*^9}, {3.760632607432494*^9, 3.760632613130381*^9}, {
  3.762708777378599*^9, 3.7627087962512817`*^9}, {3.762961757974777*^9, 
  3.76296180065175*^9}, {3.763106098729439*^9, 3.763106116950451*^9}},
 CellLabel->
  "In[687]:=",ExpressionUUID->"348f548c-89dd-4901-95d4-d437baef595c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {
      RowBox[{"-", "2"}], "1", "2", "0", "0"},
     {
      RowBox[{"-", "2"}], "2", "1", "0", "0"},
     {"0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760632614020647*^9, 3.7606336615412197`*^9, 3.760633997425312*^9, 
   3.762428569198162*^9, {3.762428617872198*^9, 3.762428639665036*^9}, 
   3.762428951870829*^9, 3.762429054205935*^9, 3.7624292459612293`*^9, 
   3.7624297337431803`*^9, 3.762429809269829*^9, {3.762708779707485*^9, 
   3.7627087975066547`*^9}, 3.762709147711801*^9, {3.762749424530877*^9, 
   3.762749439410221*^9}, 3.762750422598715*^9, 3.7628785412271748`*^9, 
   3.762918956139946*^9, 3.762961805661743*^9, 3.762966039033196*^9, 
   3.762966371951901*^9, 3.7629675203757668`*^9, 3.7629676650405693`*^9, 
   3.7631061192752113`*^9, 3.780905441284745*^9, {3.782564571139176*^9, 
   3.7825645973994293`*^9}},
 CellLabel->
  "Out[688]//MatrixForm=",ExpressionUUID->"1f61a3c5-45a9-4b8a-8313-\
4d9b1800de36"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Eigenvalues", "[", "delta4", "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.7809069318752527`*^9, 3.7809069364997053`*^9}},
 CellLabel->
  "In[689]:=",ExpressionUUID->"2a759f94-8c9d-4bf9-9d60-eb18f0c5e176"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5.82842712474619`", ",", 
   RowBox[{"-", "1.`"}], ",", "1.`", ",", "1.`", ",", "0.1715728752538097`"}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.780906937509943*^9, {3.782564571174337*^9, 3.7825645974246197`*^9}},
 CellLabel->
  "Out[689]=",ExpressionUUID->"0c00cff7-939c-450d-85e4-3f4f11a7590c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", "delta4", "]"}]], "Input",
 CellChangeTimes->{{3.78090693954003*^9, 3.780906942781116*^9}},
 CellLabel->
  "In[690]:=",ExpressionUUID->"d9a6952a-d5d5-4b9d-ab14-fb173df27d1b"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{
  3.780906943167398*^9, {3.782564571182479*^9, 3.78256459743242*^9}},
 CellLabel->
  "Out[690]=",ExpressionUUID->"5e2624be-825c-492a-86e6-705f688534d8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Computing the orders of reductions of \\delta", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.7606302283738327`*^9, 
   3.760630247815802*^9}, {3.7606775728478603`*^9, 3.7606775752317867`*^9}, {
   3.760678057751779*^9, 3.7606780730029297`*^9}, {3.7624299543377132`*^9, 
   3.76242997076448*^9}, 
   3.762430104913699*^9},ExpressionUUID->"e8008585-aa71-4b4c-bc7f-\
394d3ac6bfe6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixReductionOrder", "[", 
  RowBox[{"delta4", ",", "3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FactorInteger", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.762428578892212*^9, 3.762428588984833*^9}, {
  3.76242865388275*^9, 3.762428655438704*^9}, {3.762429207196787*^9, 
  3.762429221946576*^9}, {3.7624297456050663`*^9, 3.762429745778*^9}, {
  3.762429831551074*^9, 3.762429831751978*^9}, {3.762429919965001*^9, 
  3.762429920096058*^9}, {3.762708859755241*^9, 3.7627088598289137`*^9}, {
  3.762709162618763*^9, 3.762709162780507*^9}, {3.7627091955391903`*^9, 
  3.762709195619368*^9}, {3.762709249810356*^9, 3.762709249875938*^9}, {
  3.762709888598393*^9, 3.762709908262176*^9}, {3.762711587849682*^9, 
  3.7627115947767963`*^9}, {3.762711683050674*^9, 3.7627116886531076`*^9}, {
  3.7627117367766*^9, 3.762711743097623*^9}, {3.762749443263088*^9, 
  3.762749443320133*^9}, {3.7629620790494747`*^9, 3.7629621089603777`*^9}, {
  3.76310614320299*^9, 3.763106147205926*^9}},
 CellLabel->
  "In[691]:=",ExpressionUUID->"afea84c4-2593-4643-be6d-fcfd748ce6d8"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{
  3.7624288250204763`*^9, {3.7624290345506277`*^9, 3.7624290546386843`*^9}, {
   3.762429214173872*^9, 3.762429246620535*^9}, {3.762429734542255*^9, 
   3.762429746790794*^9}, 3.762429810085197*^9, 3.762429844370185*^9, {
   3.762429907573041*^9, 3.762429937313488*^9}, 3.762709043614378*^9, {
   3.762709160187104*^9, 3.762709164211316*^9}, 3.762709196531344*^9, 
   3.762709263612007*^9, 3.762709359261387*^9, {3.762709876209444*^9, 
   3.762709915683558*^9}, 3.762711549666626*^9, {3.762711589767407*^9, 
   3.7627116009279757`*^9}, {3.762711683905031*^9, 3.7627116919313793`*^9}, {
   3.762711738519208*^9, 3.762711746990962*^9}, 3.762749447994247*^9, 
   3.762750427802451*^9, 3.762878404334827*^9, 3.762878541343557*^9, 
   3.762918956204916*^9, {3.762962084423231*^9, 3.7629621211684923`*^9}, 
   3.762966039144445*^9, 3.7629663720186253`*^9, 3.762967520433556*^9, 
   3.762967665066718*^9, {3.763106148130919*^9, 3.763106169571252*^9}, 
   3.7809054449881067`*^9, {3.782564571201354*^9, 3.782564597457967*^9}},
 CellLabel->
  "Out[691]=",ExpressionUUID->"005296ce-fb23-4bab-80be-8d829babf34e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"2", ",", "2"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7624288250204763`*^9, {3.7624290345506277`*^9, 3.7624290546386843`*^9}, {
   3.762429214173872*^9, 3.762429246620535*^9}, {3.762429734542255*^9, 
   3.762429746790794*^9}, 3.762429810085197*^9, 3.762429844370185*^9, {
   3.762429907573041*^9, 3.762429937313488*^9}, 3.762709043614378*^9, {
   3.762709160187104*^9, 3.762709164211316*^9}, 3.762709196531344*^9, 
   3.762709263612007*^9, 3.762709359261387*^9, {3.762709876209444*^9, 
   3.762709915683558*^9}, 3.762711549666626*^9, {3.762711589767407*^9, 
   3.7627116009279757`*^9}, {3.762711683905031*^9, 3.7627116919313793`*^9}, {
   3.762711738519208*^9, 3.762711746990962*^9}, 3.762749447994247*^9, 
   3.762750427802451*^9, 3.762878404334827*^9, 3.762878541343557*^9, 
   3.762918956204916*^9, {3.762962084423231*^9, 3.7629621211684923`*^9}, 
   3.762966039144445*^9, 3.7629663720186253`*^9, 3.762967520433556*^9, 
   3.762967665066718*^9, {3.763106148130919*^9, 3.763106169571252*^9}, 
   3.7809054449881067`*^9, {3.782564571201354*^9, 3.782564597460081*^9}},
 CellLabel->
  "Out[692]=",ExpressionUUID->"dc00e8df-334f-4111-a228-74269ac7a847"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixReductionOrder", "[", 
  RowBox[{"delta4", ",", "4"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FactorInteger", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.762429990877653*^9, 3.762429990947919*^9}, {
  3.762708865403754*^9, 3.762708865470852*^9}, {3.7627091999070063`*^9, 
  3.762709200065737*^9}, {3.762709270069899*^9, 3.762709271148711*^9}, {
  3.762709352778675*^9, 3.762709352828765*^9}, {3.762709892784143*^9, 
  3.762709912293681*^9}, {3.762711575038014*^9, 3.76271157512812*^9}, {
  3.76271170025429*^9, 3.762711720249647*^9}, {3.7627494460451508`*^9, 
  3.7627494461246443`*^9}, {3.762753764596067*^9, 3.7627537710481577`*^9}, {
  3.762962081988564*^9, 3.7629621110066347`*^9}, {3.7631061517913713`*^9, 
  3.7631061630312967`*^9}},
 CellLabel->
  "In[693]:=",ExpressionUUID->"49f9084f-2002-4f2b-b28f-b68409b03219"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{
  3.76242999822091*^9, {3.762709256210767*^9, 3.76270927751381*^9}, 
   3.7627093546063833`*^9, {3.7627098790510397`*^9, 3.762709899590637*^9}, {
   3.7627115443270683`*^9, 3.762711575848661*^9}, {3.7627117025448713`*^9, 
   3.762711726263533*^9}, 3.762749450068842*^9, 3.7627504313889313`*^9, {
   3.762753765506222*^9, 3.76275377222831*^9}, 3.762878406670957*^9, 
   3.762878541409748*^9, 3.762918956273711*^9, {3.762962086657194*^9, 
   3.762962123497608*^9}, 3.7629660392607594`*^9, 3.762966372101821*^9, 
   3.762967520499921*^9, 3.762967665110116*^9, {3.763106156340704*^9, 
   3.7631061731460533`*^9}, 3.780905448291884*^9, {3.782564571212419*^9, 
   3.782564597467051*^9}},
 CellLabel->
  "Out[693]=",ExpressionUUID->"3989c6f8-86cd-4171-9cd3-72384a154dbb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"2", ",", "1"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.76242999822091*^9, {3.762709256210767*^9, 3.76270927751381*^9}, 
   3.7627093546063833`*^9, {3.7627098790510397`*^9, 3.762709899590637*^9}, {
   3.7627115443270683`*^9, 3.762711575848661*^9}, {3.7627117025448713`*^9, 
   3.762711726263533*^9}, 3.762749450068842*^9, 3.7627504313889313`*^9, {
   3.762753765506222*^9, 3.76275377222831*^9}, 3.762878406670957*^9, 
   3.762878541409748*^9, 3.762918956273711*^9, {3.762962086657194*^9, 
   3.762962123497608*^9}, 3.7629660392607594`*^9, 3.762966372101821*^9, 
   3.762967520499921*^9, 3.762967665110116*^9, {3.763106156340704*^9, 
   3.7631061731460533`*^9}, 3.780905448291884*^9, {3.782564571212419*^9, 
   3.7825645974690027`*^9}},
 CellLabel->
  "Out[694]=",ExpressionUUID->"19082896-9ef6-4a85-8559-773d25494e8c"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Dimensions n = 5 through 8", "Section",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.76063016392813*^9, 
   3.760630165007289*^9}, {3.760632526560926*^9, 3.760632544154763*^9}, 
   3.7606344015819817`*^9, {3.760634613106736*^9, 3.760634616976028*^9}, {
   3.762708265980031*^9, 3.76270827385408*^9}, {3.762959779808971*^9, 
   3.762959780030788*^9}, 
   3.766638909905033*^9},ExpressionUUID->"cd7e68ce-e370-45eb-92c6-\
48203df48d15"],

Cell["\<\
The orders of reductions will be exactly the same since \\delta_n extends \
\\delta_ 4 trivially by the identity map. \
\>", "Text",
 CellChangeTimes->{{3.766638742073024*^9, 3.76663875566722*^9}, {
   3.766638794312909*^9, 3.766638810094962*^9}, 3.766638844594388*^9, 
   3.766638921162909*^9},ExpressionUUID->"b65a25c3-7d6a-4de5-b216-\
42a9b31c81f0"]
}, Closed]],

Cell[CellGroupData[{

Cell["Polytope P_9", "Section",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.76063016392813*^9, 
   3.760630165007289*^9}, {3.760632526560926*^9, 3.760632544154763*^9}, 
   3.7606344015819817`*^9, {3.760634613106736*^9, 3.760634616976028*^9}, {
   3.762708265980031*^9, 3.76270827385408*^9}, {3.762959779808971*^9, 
   3.762959780030788*^9}},ExpressionUUID->"af0b40ee-fdc9-4b29-8905-\
b37981525bae"],

Cell[CellGroupData[{

Cell["Quadratic form associated to polytope P_9 in H^9", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.76063016392813*^9, 
   3.760630165007289*^9}, {3.760632526560926*^9, 3.760632544154763*^9}, 
   3.7606344015819817`*^9, {3.762708292028206*^9, 3.762708302257427*^9}, {
   3.762709131102899*^9, 3.762709132533449*^9}, {3.7629597824682283`*^9, 
   3.762959782718398*^9}, {3.78084456839804*^9, 
   3.7808445694054823`*^9}},ExpressionUUID->"730c6207-a195-49ae-9f66-\
077bf73a6204"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f9", "[", 
    RowBox[{"{", 
     RowBox[{
     "x0_", ",", "x1_", ",", "x2_", ",", "x3_", ",", "x4_", ",", "x5_", ",", 
      "x6_", ",", "x7_", ",", "x8_", ",", "x9_"}], "}"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     SuperscriptBox["x0", "2"]}], "+", 
    SuperscriptBox["x1", "2"], "+", 
    SuperscriptBox["x2", "2"], "+", 
    SuperscriptBox["x3", "2"], "+", 
    SuperscriptBox["x4", "2"], "+", 
    SuperscriptBox["x5", "2"], "+", 
    SuperscriptBox["x6", "2"], "+", 
    SuperscriptBox["x7", "2"], "+", 
    SuperscriptBox["x8", "2"], "+", 
    SuperscriptBox["x9", "2"]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.75833102477936*^9, 3.758331038483093*^9}, {
  3.758331108311313*^9, 3.758331114658369*^9}, {3.7583341660018034`*^9, 
  3.758334169783081*^9}, {3.7583346817301817`*^9, 3.7583346915199986`*^9}, {
  3.758334955891484*^9, 3.7583349570170317`*^9}, {3.7583351720451264`*^9, 
  3.758335174690775*^9}, {3.7583352241967697`*^9, 3.7583352249319587`*^9}, {
  3.7583358468129377`*^9, 3.7583358486468563`*^9}, {3.758479404237545*^9, 
  3.7584794214592595`*^9}, {3.7584823877991977`*^9, 3.758482393962841*^9}, {
  3.761122412284438*^9, 3.761122489627466*^9}, {3.761122537856392*^9, 
  3.761122539260841*^9}, {3.76112262761552*^9, 3.761122628487047*^9}, {
  3.762708307469242*^9, 3.762708322429039*^9}, {3.762878895219989*^9, 
  3.762878895911748*^9}},
 CellLabel->
  "In[695]:=",ExpressionUUID->"77be2890-0d6a-47a9-ad78-289bf36c5975"]
}, Closed]],

Cell[CellGroupData[{

Cell["Standard basis of R^{1,9}", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.760630037438387*^9, 
  3.760630046659821*^9}, {3.762708340776894*^9, 
  3.762708341732929*^9}},ExpressionUUID->"70d341a4-8d30-4844-83d2-\
91e3f47e315b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "v0", ",", "v1", ",", "v2", ",", "v3", ",", "v4", ",", "v5", ",", "v6", 
     ",", "v7", ",", "v8", ",", "v9"}], "}"}], "=", 
   RowBox[{"IdentityMatrix", "[", "10", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.741986259869416*^9, 3.7419862881029577`*^9}, {
  3.753271317323329*^9, 3.753271354773836*^9}, {3.754247538035009*^9, 
  3.7542475546382313`*^9}, {3.7542655074583955`*^9, 3.754265525374155*^9}, {
  3.7583347561999874`*^9, 3.7583347762341795`*^9}, {3.758479559595871*^9, 
  3.758479574630477*^9}, {3.7627083453427973`*^9, 3.7627083525649767`*^9}, {
  3.762938384650168*^9, 3.762938399353948*^9}},
 CellLabel->
  "In[696]:=",ExpressionUUID->"871ff194-4304-4f57-b29a-07ff9712f264"]
}, Closed]],

Cell[CellGroupData[{

Cell["Reflection associated to a given root", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.7606300544805603`*^9, 
  3.7606300665456867`*^9}},ExpressionUUID->"e4380746-7de5-49b8-8133-\
cee5d4bfd627"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ref", "[", 
    RowBox[{"{", 
     RowBox[{
     "x0_", ",", "x1_", ",", "x2_", ",", "x3_", ",", "x4_", ",", "x5_", ",", 
      "x6_", ",", "x7_", ",", "x8_", ",", "x9_"}], "}"}], "]"}], "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v0", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"-", "2"}], ")"}], "x0"}], 
          RowBox[{"f9", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}]}]}], "}"}], "]"}], 
     ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v1", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x1"}], 
          RowBox[{"f9", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}]}]}], "}"}], "]"}], 
     ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v2", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x2"}], 
          RowBox[{"f9", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}]}]}], "}"}], "]"}], 
     ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v3", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x3"}], 
          RowBox[{"f9", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}]}]}], "}"}], "]"}], 
     ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v4", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x4"}], 
          RowBox[{"f9", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}]}]}], "}"}], "]"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v5", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x5"}], 
          RowBox[{"f9", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}]}]}], "}"}], "]"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v6", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x6"}], 
          RowBox[{"f9", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}]}]}], "}"}], "]"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v7", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x7"}], 
          RowBox[{"f9", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}]}]}], "}"}], "]"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v8", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x8"}], 
          RowBox[{"f9", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}]}]}], "}"}], "]"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v9", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x9"}], 
          RowBox[{"f9", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9"}], "}"}]}]}], "}"}], "]"}], 
     ",", "2"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAGIQnT/5xDrXh68d8x6zbgDRflr7T4No7c9nwPS1yfl3
QLTXt+WvQDTf4pnvQPQ3k9KPIHr7UvP/IDpa9gCLG5AWufBEBERn/FGSBNG5
C/gUQXTKAhElEG31arU+iL6/YJIBiNbbdC0bRDct3J0PoqeU5Buf+QakRTrA
9KNcBksQvabvNZjmSVl4E0TPSGx5BaKfBGrznwXSZVq2YNqjK3fjih+vHZmu
79sKouP4o8o3AulDAvdrQfSSfz/TSxjeOE4pWJ8HouPa+apBtHSuHpjWmlDZ
AaL14sz6QfTsnbvXg+gPQl/B9LQ7btK7gXTFoQYFEK3S2+8IokOWbQTTD/Z2
VO8B0uXiT2pA9IZFtV9Pc7xxjDJo5TgDpCvyPn+6D6RnpS/+DKIBs33PNg==

  "],
 CellLabel->
  "In[697]:=",ExpressionUUID->"34e352d7-d495-4d2e-b47f-e50f11b8fca4"]
}, Closed]],

Cell[CellGroupData[{

Cell["Outer normals for P_9", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.760630081373625*^9, 
  3.760630103352571*^9}, {3.76270856113221*^9, 3.7627085628561077`*^9}, {
  3.762959785295683*^9, 
  3.762959785523918*^9}},ExpressionUUID->"662f4000-4db0-4f49-8584-\
c2deaef188bc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"e1", "=", 
    RowBox[{
     RowBox[{"-", "v1"}], "+", "v2"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{
    RowBox[{"-", "v2"}], "+", "v3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e3", "=", 
   RowBox[{
    RowBox[{"-", "v3"}], "+", "v4"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e4", "=", 
   RowBox[{
    RowBox[{"-", "v4"}], "+", "v5"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e5", "=", 
   RowBox[{
    RowBox[{"-", "v5"}], "+", "v6"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e6", "=", 
   RowBox[{
    RowBox[{"-", "v6"}], "+", "v7"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e7", "=", 
   RowBox[{
    RowBox[{"-", "v7"}], "+", "v8"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e8", "=", 
   RowBox[{
    RowBox[{"-", "v8"}], "+", "v9"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e9", "=", 
   RowBox[{"-", "v9"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e10", "=", 
   RowBox[{"v0", "+", 
    RowBox[{"2", "v1"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e11", "=", 
   RowBox[{"v0", "+", "v1", "+", "v2", "+", "v3", "+", "v4"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e12", "=", 
   RowBox[{
    RowBox[{"2", "v0"}], "+", "v1", "+", "v2", "+", "v3", "+", "v4", "+", 
    "v5", "+", "v6", "+", "v7", "+", "v8", "+", "v9"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdxUsow3EAB/C/EQ6bHGieqyljrIWUmrL+IQ4mWXJD2AqZsrWWg2yFtVit
NmmTFK15HDCPomQoj/YwZTUXUVraHFa2Ri3+39/h04c/PNWrYFEUVc7APeqj
E1cqSjf7H87xTXrQg7mKFFkWXr7DDkfePX7Xa2YPmGeOH+cwN3uuuPInStft
v5Xgigl5j5DZZnGSI+nSC3wtbSFvqQTfNcwZdl4C89brf3Cb/Ii8FheedDAL
qNFTnDSuXGGJSnaDEy9OH5a5X/zY2l04raFitHW7UYvdwepaLfNvOC3CSwuZ
TVjJGiN7RR9SrHe201gVmR/BOYbQKN6TBCZxqipCDpn4aqyzhclWn0GH2WYz
+Sm0q8eHfd/k+NCiCXc5uDY8UDSdxmXVrj88zn09tTMLja4zXKi4vcROTpUH
9xdsBrBytjOIX8Vf/HPmjc/3Brya4xM9Z8Volz1fjC2cVrY3N0YnL3by8D8S
Vu89
  "],
 CellLabel->
  "In[698]:=",ExpressionUUID->"a8ef6433-82fe-4e12-96a0-1a641ee54261"]
}, Closed]],

Cell[CellGroupData[{

Cell["Reflections in the bounding hyperplanes of P_9", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.760630171933566*^9, 
  3.760630181461022*^9}, {3.762708636578536*^9, 3.7627086376368303`*^9}, {
  3.7629597876020603`*^9, 
  3.7629597878530397`*^9}},ExpressionUUID->"3a348410-8c05-429e-9c76-\
281fd6096cce"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"s1", "=", 
   RowBox[{"Ref", "[", "e1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s2", "=", 
   RowBox[{"Ref", "[", "e2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s3", "=", 
   RowBox[{"Ref", "[", "e3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s4", "=", 
   RowBox[{"Ref", "[", "e4", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s5", "=", 
   RowBox[{"Ref", "[", "e5", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s6", "=", 
   RowBox[{"Ref", "[", "e6", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s7", "=", 
   RowBox[{"Ref", "[", "e7", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"s8", "=", 
    RowBox[{"Ref", "[", "e8", "]"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s9", "=", 
   RowBox[{"Ref", "[", "e9", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s10", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s11", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e11", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s12", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e12", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7583349010431814`*^9, 3.7583349033210793`*^9}, {
  3.7583349411761537`*^9, 3.7583349412939816`*^9}, {3.758335374359543*^9, 
  3.758335432323221*^9}, {3.75834115524435*^9, 3.7583411844974585`*^9}, {
  3.758413279687951*^9, 3.7584132884369483`*^9}, {3.758413462371809*^9, 
  3.7584134717453995`*^9}, {3.758479773657228*^9, 3.7584797822090273`*^9}, {
  3.760630209482951*^9, 3.760630218833775*^9}, {3.760630349926944*^9, 
  3.760630361264076*^9}, {3.762708619479815*^9, 3.7627086929339123`*^9}},
 CellLabel->
  "In[710]:=",ExpressionUUID->"60232946-349d-41af-9992-a5064debfea8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Matrices of reflections", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.760630171933566*^9, 
  3.760630181461022*^9}, {3.760632417848068*^9, 
  3.760632422351159*^9}},ExpressionUUID->"d998c27d-9b86-4efd-92dd-\
4afa1a3035ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s1", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7606323547650347`*^9, 3.760632356271002*^9}},
 CellLabel->
  "In[722]:=",ExpressionUUID->"cea8998c-7fa0-4860-8cd2-0778778c5f9d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760632362261162*^9, 3.762428543581601*^9, 3.762428951282324*^9, 
   3.7624290536061287`*^9, 3.7624292453107777`*^9, 3.7624297331612997`*^9, 
   3.7624298086711807`*^9, 3.7627087133843517`*^9, 3.762749183652025*^9, 
   3.762749372695812*^9, 3.762750366044532*^9, 3.762878540443211*^9, 
   3.762918955327547*^9, 3.76293848847766*^9, 3.780905479812436*^9, 
   3.7809066043646297`*^9, {3.7825645712805443`*^9, 3.7825645975235357`*^9}},
 CellLabel->
  "Out[722]//MatrixForm=",ExpressionUUID->"05af378c-39db-4f69-b37e-\
aa487bdc24ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s2", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.760632385278757*^9, 3.7606323853989058`*^9}},
 CellLabel->
  "In[723]:=",ExpressionUUID->"1fcd4053-d1a1-48fb-8b40-5cc233a72fda"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606323864548187`*^9, 3.7624285464186697`*^9, 3.762428951348081*^9, 
   3.762429053671422*^9, 3.762429245377797*^9, 3.76242973322726*^9, 
   3.762429808736972*^9, 3.762708716071094*^9, 3.762749186599688*^9, 
   3.762749374478026*^9, 3.7627503677101727`*^9, 3.762878540507309*^9, 
   3.762918955403771*^9, 3.762938488512538*^9, 3.780905488682494*^9, 
   3.780906606302116*^9, {3.7825645712996597`*^9, 3.782564597545497*^9}},
 CellLabel->
  "Out[723]//MatrixForm=",ExpressionUUID->"b190b42e-bfc3-42df-9554-\
15ad1e6a3a7f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s3", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7606323936124573`*^9, 3.7606323936793947`*^9}},
 CellLabel->
  "In[724]:=",ExpressionUUID->"df529545-6c31-42eb-9ebe-717e1d237304"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760632394725415*^9, 3.762428548900743*^9, 3.76242895141457*^9, 
   3.7624290537392178`*^9, 3.762429245443386*^9, 3.76242973329243*^9, 
   3.762429808803762*^9, 3.76270871885748*^9, 3.762749189267062*^9, 
   3.76274937713065*^9, 3.762750370127913*^9, 3.762878540572988*^9, 
   3.762918955470964*^9, 3.762938488567968*^9, 3.780905492248549*^9, 
   3.7809066091331043`*^9, {3.782564571308309*^9, 3.782564597553112*^9}},
 CellLabel->
  "Out[724]//MatrixForm=",ExpressionUUID->"504f4e94-aaef-4e57-b4d6-\
bf8be69f1212"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s4", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.760632449784658*^9, 3.760632449860031*^9}},
 CellLabel->
  "In[725]:=",ExpressionUUID->"c6d30448-a96d-4e97-a1b3-a7753e7a4d62"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606324511054173`*^9, 3.7624285513554153`*^9, 3.762428951481024*^9, 
   3.762429053804844*^9, 3.762429245510454*^9, 3.7624297333418627`*^9, 
   3.762429808870586*^9, 3.7627087215542097`*^9, 3.762749191983335*^9, 
   3.762749379965308*^9, 3.7627503724140387`*^9, 3.7628785406395073`*^9, 
   3.7629189555375566`*^9, 3.762938488619255*^9, 3.780905496451741*^9, 
   3.7809066118658743`*^9, {3.782564571327664*^9, 3.7825645975766983`*^9}},
 CellLabel->
  "Out[725]//MatrixForm=",ExpressionUUID->"cd859d64-9d96-4ce8-841e-\
fd6fd0f248db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s5", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.76063245590226*^9, 3.7606324559798326`*^9}},
 CellLabel->
  "In[726]:=",ExpressionUUID->"8ce83efd-c0c7-449f-a1b1-0da8ab7e11b9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606324568987303`*^9, 3.762428553770928*^9, 3.762428951547762*^9, 
   3.762429053872171*^9, 3.76242924557793*^9, 3.762429733410685*^9, 
   3.762429808937051*^9, 3.762708724172076*^9, 3.762749197488989*^9, 
   3.7627493824990807`*^9, 3.7627503752302437`*^9, 3.762878540705802*^9, 
   3.762918955604467*^9, 3.762938488673039*^9, 3.780905499715222*^9, 
   3.780906614093197*^9, {3.782564571337388*^9, 3.782564597584358*^9}},
 CellLabel->
  "Out[726]//MatrixForm=",ExpressionUUID->"cdb0ef34-bc79-465d-ba74-\
1f4ed0f8d726"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s6", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7606324612676764`*^9, 3.760632461327094*^9}},
 CellLabel->
  "In[727]:=",ExpressionUUID->"6f5d0aa8-ae62-469a-bd4c-3c8ee00c7554"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760632462283785*^9, 3.762428555638295*^9, 3.762428951614793*^9, 
   3.762429053938693*^9, 3.762429245644042*^9, 3.762429733475613*^9, 
   3.762429809002898*^9, 3.762708727124456*^9, 3.7627492001947737`*^9, 
   3.762749385035384*^9, 3.762750377550124*^9, 3.762878540772588*^9, 
   3.7629189556706333`*^9, 3.762938488717042*^9, 3.780905502755433*^9, 
   3.780906616555093*^9, {3.782564571355649*^9, 3.782564597606567*^9}},
 CellLabel->
  "Out[727]//MatrixForm=",ExpressionUUID->"a811eacc-47a1-49f5-a633-\
29d7a8f08c46"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s7", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.760632467574613*^9, 3.760632467620661*^9}},
 CellLabel->
  "In[728]:=",ExpressionUUID->"f2c11a01-468a-49f0-abf6-2e34921a0b02"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606324687547407`*^9, 3.7624285588596373`*^9, 3.7624289516797047`*^9, 
   3.7624290540060453`*^9, 3.762429245710308*^9, 3.762429733543241*^9, 
   3.7624298090686083`*^9, 3.762708730978998*^9, 3.762749203127138*^9, 
   3.762749387768402*^9, 3.762750380884708*^9, 3.7628785408392344`*^9, 
   3.762918955737499*^9, 3.762938488769145*^9, 3.780905505757208*^9, 
   3.780906619022624*^9, {3.782564571364974*^9, 3.782564597614822*^9}},
 CellLabel->
  "Out[728]//MatrixForm=",ExpressionUUID->"519bc329-293a-4615-8d12-\
694f1a52bee2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s8", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.760632473868348*^9, 3.76063247392799*^9}},
 CellLabel->
  "In[729]:=",ExpressionUUID->"7fdc72e0-f180-4000-bd39-6c32848c771c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760632474640966*^9, 3.7624285606408052`*^9, 3.762428951746993*^9, 
   3.762429054072274*^9, 3.7624292457779284`*^9, 3.762429733609838*^9, 
   3.762429809137261*^9, 3.762708733760146*^9, 3.76274920601587*^9, 
   3.762749390289361*^9, 3.762750383318862*^9, 3.762878540904327*^9, 
   3.7629189558051987`*^9, 3.762938488818931*^9, 3.78090550972654*^9, 
   3.78090662164037*^9, {3.7825645713828697`*^9, 3.782564597636156*^9}},
 CellLabel->
  "Out[729]//MatrixForm=",ExpressionUUID->"ea33b729-c7a6-4e58-8d38-\
298f836276a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s9", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7606324790005007`*^9, 3.760632479304027*^9}},
 CellLabel->
  "In[730]:=",ExpressionUUID->"3189064c-4f67-4f64-9314-79247dc5f89c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760632480462782*^9, 3.7624285632422256`*^9, 3.7624289518138227`*^9, 
   3.7624290541387653`*^9, 3.762429245843726*^9, 3.762429733677384*^9, 
   3.762429809204171*^9, 3.762708736903244*^9, 3.762749208866465*^9, 
   3.762749392870243*^9, 3.76275038580783*^9, 3.762878540959331*^9, 
   3.762918955870928*^9, 3.762938488867338*^9, 3.780905513456254*^9, 
   3.7809066241772337`*^9, {3.782564571391568*^9, 3.782564597645053*^9}},
 CellLabel->
  "Out[730]//MatrixForm=",ExpressionUUID->"cb6ceb69-ff27-436e-b3ec-\
9c5e48c3eb04"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s10", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.762708746697198*^9, 3.762708746945133*^9}},
 CellLabel->
  "In[731]:=",ExpressionUUID->"0d39c6b4-fc54-41f4-bc24-1251cc278684"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", 
      RowBox[{"-", "2"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"4", 
      RowBox[{"-", "3"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.762708747927726*^9, 3.7627492120674562`*^9, 3.762749395588986*^9, 
   3.762750388672037*^9, 3.7628785410267267`*^9, 3.7629189559376087`*^9, 
   3.762938488918415*^9, 3.780905517137486*^9, 3.780906626864911*^9, {
   3.782564571410839*^9, 3.782564597666473*^9}},
 CellLabel->
  "Out[731]//MatrixForm=",ExpressionUUID->"3992de36-ae08-4a02-be54-\
2f045d0591f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s11", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7627087533254957`*^9, 3.7627087536306973`*^9}},
 CellLabel->
  "In[732]:=",ExpressionUUID->"11a975d0-fd8e-4447-987c-8870c9b2560f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"2", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.762708754447695*^9, 3.762749405347123*^9, 3.762750391530552*^9, 
   3.762878541094166*^9, 3.762918956004483*^9, 3.762938488973546*^9, 
   3.780905520625011*^9, 3.780906634712472*^9, {3.782564571420225*^9, 
   3.7825645976752777`*^9}},
 CellLabel->
  "Out[732]//MatrixForm=",ExpressionUUID->"7cef416f-8b2a-4b98-8ed0-\
a7f7717db43c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", "s12", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7627087594474497`*^9, 3.7627087595722237`*^9}},
 CellLabel->
  "In[733]:=",ExpressionUUID->"1fc9d48c-ffde-43d9-a830-a34aace3697d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"17", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}]},
     {"8", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}]},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.762708760386261*^9, {3.762749408330533*^9, 3.7627494211275473`*^9}, 
   3.762750394179895*^9, 3.762878541160342*^9, 3.7629189560706863`*^9, 
   3.762938489013288*^9, 3.780905523968845*^9, 3.780906638268941*^9, {
   3.78256457143933*^9, 3.782564597697027*^9}},
 CellLabel->
  "Out[733]//MatrixForm=",ExpressionUUID->"ebe69cf4-a24b-4754-ab66-\
132e8fb0be70"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
An infinite-order orientation-reversing element \\delta in the kernel of \
retraction R\
\>", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
  3.760629982671979*^9, 3.760629990092085*^9}, {3.7606302283738327`*^9, 
  3.760630247815802*^9}, {3.762431157743984*^9, 
  3.762431158500445*^9}},ExpressionUUID->"88c0f228-7682-41c7-a9bd-\
87f8223926df"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"delta9", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
    "s1", ".", "s2", ".", "s3", ".", "s4", ".", "s5", ".", "s6", ".", "s7", 
     ".", "s8", ".", "s11"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "delta9", "]"}]}], "Input",
 CellChangeTimes->{{3.758415296056778*^9, 3.7584153081303625`*^9}, {
   3.7584824392905817`*^9, 3.758482458591383*^9}, {3.758482617271708*^9, 
   3.758482619601139*^9}, {3.7606302001741953`*^9, 3.7606302046235657`*^9}, {
   3.760630284934063*^9, 3.760630289932104*^9}, {3.760630369355485*^9, 
   3.7606303781375217`*^9}, {3.760632607432494*^9, 3.760632613130381*^9}, {
   3.762708777378599*^9, 3.7627087962512817`*^9}, {3.780844218641162*^9, 
   3.780844221308078*^9}, 3.780905531701264*^9, {3.780906780549067*^9, 
   3.780906792983674*^9}, {3.780906856638929*^9, 3.780906871893911*^9}},
 CellLabel->
  "In[734]:=",ExpressionUUID->"d62adebe-fdf9-46d9-85c2-4d070c9e655f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
     {"2", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760632614020647*^9, 3.7606336615412197`*^9, 3.760633997425312*^9, 
   3.762428569198162*^9, {3.762428617872198*^9, 3.762428639665036*^9}, 
   3.762428951870829*^9, 3.762429054205935*^9, 3.7624292459612293`*^9, 
   3.7624297337431803`*^9, 3.762429809269829*^9, {3.762708779707485*^9, 
   3.7627087975066547`*^9}, 3.762709147711801*^9, {3.762749424530877*^9, 
   3.762749439410221*^9}, 3.762750422598715*^9, 3.7628785412271748`*^9, 
   3.762918956139946*^9, 3.762938489069312*^9, 3.7809055276383667`*^9, 
   3.780906818509399*^9, {3.7809068585076513`*^9, 3.7809068726409273`*^9}, {
   3.782564571459771*^9, 3.78256459770479*^9}},
 CellLabel->
  "Out[735]//MatrixForm=",ExpressionUUID->"8918d09b-c61c-4a23-a09e-\
c3c2c6e1afde"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Eigenvalues", "[", "delta9", "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.780906827014502*^9, 3.7809068429080048`*^9}, {
  3.7809068785160923`*^9, 3.7809068800013227`*^9}},
 CellLabel->
  "In[736]:=",ExpressionUUID->"715be0ca-c5ca-4263-8d86-dbb5b258c682"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.2806381562677576`", ",", 
   RowBox[{
    RowBox[{"-", "0.8820074625972911`"}], "+", 
    RowBox[{"0.4712354357671843`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.8820074625972911`"}], "-", 
    RowBox[{"0.4712354357671843`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.19816926550722655`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.9801678132892991`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.19816926550722655`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.9801678132892991`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"-", "1.`"}], ",", "1.`", ",", 
   RowBox[{
    RowBox[{"-", "0.3469112282522565`"}], "+", 
    RowBox[{"0.937897968711155`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.3469112282522565`"}], "-", 
    RowBox[{"0.937897968711155`", " ", "\[ImaginaryI]"}]}], ",", 
   "0.7808606944168847`"}], "}"}]], "Output",
 CellChangeTimes->{{3.780906833091201*^9, 3.7809068846549597`*^9}, {
  3.782564571480218*^9, 3.782564597727591*^9}},
 CellLabel->
  "Out[736]=",ExpressionUUID->"48162323-337a-44c8-b2cc-df5cbc5a4107"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", "delta9", "]"}]], "Input",
 CellChangeTimes->{{3.780906882474523*^9, 3.780906890863572*^9}},
 CellLabel->
  "In[737]:=",ExpressionUUID->"1cbfe1d0-d9df-4e4c-90df-d07ac33fc0c1"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{
  3.780906891670879*^9, {3.782564571489209*^9, 3.782564597735044*^9}},
 CellLabel->
  "Out[737]=",ExpressionUUID->"769589eb-b30e-4d9e-9da2-0c6b46534e74"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Computing the orders of reductions of \\delta", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.7606302283738327`*^9, 
   3.760630247815802*^9}, {3.7606775728478603`*^9, 3.7606775752317867`*^9}, {
   3.760678057751779*^9, 3.7606780730029297`*^9}, {3.7624299543377132`*^9, 
   3.76242997076448*^9}, 
   3.762430104913699*^9},ExpressionUUID->"8b7c25c4-3f9a-4f93-adb3-\
89572eb562d1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixReductionOrder", "[", 
  RowBox[{"delta9", ",", "3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FactorInteger", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.762428578892212*^9, 3.762428588984833*^9}, {
  3.76242865388275*^9, 3.762428655438704*^9}, {3.762429207196787*^9, 
  3.762429221946576*^9}, {3.7624297456050663`*^9, 3.762429745778*^9}, {
  3.762429831551074*^9, 3.762429831751978*^9}, {3.762429919965001*^9, 
  3.762429920096058*^9}, {3.762708859755241*^9, 3.7627088598289137`*^9}, {
  3.762709162618763*^9, 3.762709162780507*^9}, {3.7627091955391903`*^9, 
  3.762709195619368*^9}, {3.762709249810356*^9, 3.762709249875938*^9}, {
  3.762709888598393*^9, 3.762709908262176*^9}, {3.762711587849682*^9, 
  3.7627115947767963`*^9}, {3.762711683050674*^9, 3.7627116886531076`*^9}, {
  3.7627117367766*^9, 3.762711743097623*^9}, {3.762749443263088*^9, 
  3.762749443320133*^9}},
 CellLabel->
  "In[738]:=",ExpressionUUID->"e57ff32a-1b8b-4b39-81fa-c9eec57691c1"],

Cell[BoxData["84"], "Output",
 CellChangeTimes->{
  3.7624288250204763`*^9, {3.7624290345506277`*^9, 3.7624290546386843`*^9}, {
   3.762429214173872*^9, 3.762429246620535*^9}, {3.762429734542255*^9, 
   3.762429746790794*^9}, 3.762429810085197*^9, 3.762429844370185*^9, {
   3.762429907573041*^9, 3.762429937313488*^9}, 3.762709043614378*^9, {
   3.762709160187104*^9, 3.762709164211316*^9}, 3.762709196531344*^9, 
   3.762709263612007*^9, 3.762709359261387*^9, {3.762709876209444*^9, 
   3.762709915683558*^9}, 3.762711549666626*^9, {3.762711589767407*^9, 
   3.7627116009279757`*^9}, {3.762711683905031*^9, 3.7627116919313793`*^9}, {
   3.762711738519208*^9, 3.762711746990962*^9}, 3.762749447994247*^9, 
   3.762750427802451*^9, 3.762878404334827*^9, 3.762878541343557*^9, 
   3.762918956204916*^9, 3.762938489113716*^9, 3.780906959493224*^9, {
   3.782564571509761*^9, 3.7825645977586184`*^9}},
 CellLabel->
  "Out[738]=",ExpressionUUID->"dc9201d2-df4c-423f-94ba-69972987b35b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7624288250204763`*^9, {3.7624290345506277`*^9, 3.7624290546386843`*^9}, {
   3.762429214173872*^9, 3.762429246620535*^9}, {3.762429734542255*^9, 
   3.762429746790794*^9}, 3.762429810085197*^9, 3.762429844370185*^9, {
   3.762429907573041*^9, 3.762429937313488*^9}, 3.762709043614378*^9, {
   3.762709160187104*^9, 3.762709164211316*^9}, 3.762709196531344*^9, 
   3.762709263612007*^9, 3.762709359261387*^9, {3.762709876209444*^9, 
   3.762709915683558*^9}, 3.762711549666626*^9, {3.762711589767407*^9, 
   3.7627116009279757`*^9}, {3.762711683905031*^9, 3.7627116919313793`*^9}, {
   3.762711738519208*^9, 3.762711746990962*^9}, 3.762749447994247*^9, 
   3.762750427802451*^9, 3.762878404334827*^9, 3.762878541343557*^9, 
   3.762918956204916*^9, 3.762938489113716*^9, 3.780906959493224*^9, {
   3.782564571509761*^9, 3.782564597760866*^9}},
 CellLabel->
  "Out[739]=",ExpressionUUID->"e2d7a72f-72b9-44de-a7d1-87a5ad1c298e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixReductionOrder", "[", 
  RowBox[{"delta9", ",", "4"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FactorInteger", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.762429990877653*^9, 3.762429990947919*^9}, {
  3.762708865403754*^9, 3.762708865470852*^9}, {3.7627091999070063`*^9, 
  3.762709200065737*^9}, {3.762709270069899*^9, 3.762709271148711*^9}, {
  3.762709352778675*^9, 3.762709352828765*^9}, {3.762709892784143*^9, 
  3.762709912293681*^9}, {3.762711575038014*^9, 3.76271157512812*^9}, {
  3.76271170025429*^9, 3.762711720249647*^9}, {3.7627494460451508`*^9, 
  3.7627494461246443`*^9}, {3.762753764596067*^9, 3.7627537710481577`*^9}},
 CellLabel->
  "In[740]:=",ExpressionUUID->"63fe9696-2149-4653-b177-142c55c4c3b0"],

Cell[BoxData["34"], "Output",
 CellChangeTimes->{
  3.76242999822091*^9, {3.762709256210767*^9, 3.76270927751381*^9}, 
   3.7627093546063833`*^9, {3.7627098790510397`*^9, 3.762709899590637*^9}, {
   3.7627115443270683`*^9, 3.762711575848661*^9}, {3.7627117025448713`*^9, 
   3.762711726263533*^9}, 3.762749450068842*^9, 3.7627504313889313`*^9, {
   3.762753765506222*^9, 3.76275377222831*^9}, 3.762878406670957*^9, 
   3.762878541409748*^9, 3.762918956273711*^9, 3.762938489164188*^9, 
   3.780906964443939*^9, {3.782564571519661*^9, 3.7825645977676067`*^9}},
 CellLabel->
  "Out[740]=",ExpressionUUID->"b1502587-f056-4b5e-88cb-e35a4239e924"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.76242999822091*^9, {3.762709256210767*^9, 3.76270927751381*^9}, 
   3.7627093546063833`*^9, {3.7627098790510397`*^9, 3.762709899590637*^9}, {
   3.7627115443270683`*^9, 3.762711575848661*^9}, {3.7627117025448713`*^9, 
   3.762711726263533*^9}, 3.762749450068842*^9, 3.7627504313889313`*^9, {
   3.762753765506222*^9, 3.76275377222831*^9}, 3.762878406670957*^9, 
   3.762878541409748*^9, 3.762918956273711*^9, 3.762938489164188*^9, 
   3.780906964443939*^9, {3.782564571519661*^9, 3.78256459776996*^9}},
 CellLabel->
  "Out[741]=",ExpressionUUID->"df5215d2-7241-4213-af84-e0962c94f5d7"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Dimensions n = 10 and 13", "Section",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.76063016392813*^9, 
   3.760630165007289*^9}, {3.760632526560926*^9, 3.760632544154763*^9}, 
   3.7606344015819817`*^9, {3.760634613106736*^9, 3.760634616976028*^9}, {
   3.762708265980031*^9, 3.76270827385408*^9}, {3.762959779808971*^9, 
   3.762959780030788*^9}, 3.766638909905033*^9, {3.780895512853777*^9, 
   3.78089551293616*^9}, {3.780896237835506*^9, 3.780896239912108*^9}, {
   3.780900813075177*^9, 3.780900816104372*^9}, {3.780907368927991*^9, 
   3.7809073689674883`*^9}, {3.780907694784925*^9, 
   3.780907698329886*^9}},ExpressionUUID->"d21099e0-fb29-47c2-8e55-\
d00c421b8f82"],

Cell["\<\
The orders of reductions will be exactly the same since \\delta_n extends \
\\delta_ 9 trivially by the identity map. \
\>", "Text",
 CellChangeTimes->{{3.766638742073024*^9, 3.76663875566722*^9}, {
   3.766638794312909*^9, 3.766638810094962*^9}, 3.766638844594388*^9, 
   3.766638921162909*^9, {3.780895516985894*^9, 3.780895519972763*^9}, {
   3.780907373167495*^9, 3.780907376152347*^9}, {3.780907705141302*^9, 
   3.780907705971113*^9}},ExpressionUUID->"214673db-2472-4331-bc2a-\
d64c213c8b67"]
}, Closed]],

Cell[CellGroupData[{

Cell["Polytope P_11", "Section",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634485916493*^9}, {
   3.760634734543194*^9, 3.76063473748796*^9}, 3.760676898328662*^9, {
   3.762753819899374*^9, 3.762753825767489*^9}, {3.762962006725873*^9, 
   3.762962007032786*^9}},ExpressionUUID->"a4e36302-2b09-406d-a78a-\
28ee4bba0ff6"],

Cell[CellGroupData[{

Cell["Quadratic form associated to polytope P_11 in H^11", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634485916493*^9}, {
  3.760676986532968*^9, 3.7606769882194347`*^9}, {3.762878682562419*^9, 
  3.7628786857430983`*^9}, {3.762959800667297*^9, 3.7629598008959093`*^9}, {
  3.762961959158763*^9, 3.762961961221549*^9}, {3.780844266459338*^9, 
  3.780844274174765*^9}},ExpressionUUID->"9ad0392f-cec1-4a4d-b134-\
d6e8579cf31f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f11", "[", 
    RowBox[{"{", 
     RowBox[{
     "x0_", ",", "x1_", ",", "x2_", ",", "x3_", ",", "x4_", ",", "x5_", ",", 
      "x6_", ",", "x7_", ",", "x8_", ",", "x9_", ",", "x10_", ",", "x11_"}], 
     "}"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     SuperscriptBox["x0", "2"]}], "+", 
    SuperscriptBox["x1", "2"], "+", 
    SuperscriptBox["x2", "2"], "+", 
    SuperscriptBox["x3", "2"], "+", 
    SuperscriptBox["x4", "2"], "+", 
    SuperscriptBox["x5", "2"], "+", 
    SuperscriptBox["x6", "2"], "+", 
    SuperscriptBox["x7", "2"], "+", 
    SuperscriptBox["x8", "2"], "+", 
    RowBox[{"2", 
     SuperscriptBox["x9", "2"]}], "+", 
    RowBox[{"2", 
     SuperscriptBox["x10", "2"]}], "+", 
    RowBox[{"2", 
     SuperscriptBox["x11", "2"]}]}]}], ";"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQ3fJBYlIRwxvH+tLzk0G0+7fOOSA6RjB0Log+xndA
qgRIM/BbSoPoZbHm0SD6yuKCGBDN2V5TC6LbuheA6bWFjTPA8lLXwPQHb7b5
IHr2JVkwPY351hsQzbNZ5C3YvLxtWXuAtNzDT9kgWrgoZyaITmINnQWixWZu
33id5Y3jnScbNoPo3xlej0F03OdkMF1w4A/LGyC9NiuNA0RPmtigIc/5xlFq
ergOiDbRNLcF0V5V3mB62Wfl/mTtN46yzzrBdN63htBWIC13/HcUiJ714Gsc
iLZ9IhsPogVuL18Aoq0qtoNpAKpCjm8=
  "],
 CellLabel->
  "In[878]:=",ExpressionUUID->"872bee97-9c55-413a-953b-0cc1bd07a6d5"]
}, Closed]],

Cell[CellGroupData[{

Cell["Standard basis of R^{1,11}", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634508034494*^9}, {
  3.760634743268852*^9, 3.760634744473783*^9}, {3.7606769839900713`*^9, 
  3.760676984051385*^9}, {3.762878958094857*^9, 
  3.762878958313314*^9}},ExpressionUUID->"00fe4074-8f93-4b7a-8ac6-\
be5db7e697cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "v0", ",", "v1", ",", "v2", ",", "v3", ",", "v4", ",", "v5", ",", "v6", 
     ",", "v7", ",", "v8", ",", "v9", ",", "v10", ",", "v11"}], "}"}], "=", 
   RowBox[{"IdentityMatrix", "[", "12", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.741986259869416*^9, 3.7419862881029577`*^9}, {
  3.753271317323329*^9, 3.753271354773836*^9}, {3.754247538035009*^9, 
  3.7542475546382313`*^9}, {3.7542655074583955`*^9, 3.754265525374155*^9}, {
  3.7583347561999874`*^9, 3.7583347762341795`*^9}, {3.7584822744062696`*^9, 
  3.7584822957468653`*^9}, {3.7606352279477*^9, 3.760635249960392*^9}, {
  3.760676948270227*^9, 3.760676979407267*^9}, {3.762879050774867*^9, 
  3.762879063436408*^9}, {3.7629384264568577`*^9, 3.762938433066572*^9}},
 CellLabel->
  "In[879]:=",ExpressionUUID->"aeebe372-4693-44a4-9ef9-c21bed857cec"]
}, Closed]],

Cell[CellGroupData[{

Cell["Reflection associated to a given root", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634508034494*^9}, {
  3.760634743268852*^9, 
  3.7606347731325083`*^9}},ExpressionUUID->"e32f806d-9e59-408a-8aeb-\
34ea88e88a2f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ref", "[", 
    RowBox[{"{", 
     RowBox[{
     "x0_", ",", "x1_", ",", "x2_", ",", "x3_", ",", "x4_", ",", "x5_", ",", 
      "x6_", ",", "x7_", ",", "x8_", ",", "x9_", ",", "x10_", ",", "x11_"}], 
     "}"}], "]"}], "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v0", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"-", "2"}], ")"}], "x0"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v1", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x1"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v2", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x2"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v3", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x3"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v4", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x4"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v5", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x5"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v6", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x6"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v7", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x7"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v8", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x8"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v9", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", 
           RowBox[{"(", "2", ")"}], "x9"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v10", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", 
           RowBox[{"(", "2", ")"}], "x10"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v11", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", 
           RowBox[{"(", "2", ")"}], "x11"}], 
          RowBox[{"f11", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
            "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11"}], 
          "}"}]}]}], "}"}], "]"}], ",", "2"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdxU0oQwEAB/DXoiht4pW0pFEOezVi+SqHd7C0w7Qp5aNXtonSPAcmSWkp
y8F87OCzJh8jsk0JTbMcpMzHhZdaCTtoe7SlLSLz/u/w66cwsoZuCUEQcgFm
5y/3G59jdP9rphfrlGdXmPoMiT/Ms2GsTbmjWLq++IFT6qEEPtqsSeOOomCG
Rpi8i5C497ekEFtcUgU2u8gSXB/dLcdPrrkKrDp46MO2NT+LnYNsVSglTNrF
XyxEHd6bjonnmNce8ULXRBRH9JTsWtiqbBBvmrL4tr9itIQLHGJG1j7sEz7P
fRrDG3/fPYMETzsHPP2YmZSOYrlFJa6cGbFjFVPtwMsnfg+O5yXF83O2lk6F
HTcrq/hC0+zGydKAD9tqW7xcBk+rKwfE36yJY7zFzwXxfaCMw+9G/SM2/OxU
v2TxdAEV12BtK6crzubpsCnN4LbO5xkTxdPj7ttZ/A90aOhC
  "],
 CellLabel->
  "In[880]:=",ExpressionUUID->"211f6335-f05f-4e29-bb8b-381245ba4a20"]
}, Closed]],

Cell[CellGroupData[{

Cell["Outer normals for P_11", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634508034494*^9}, {
   3.760634743268852*^9, 3.760634744473783*^9}, {3.76063480212357*^9, 
   3.76063481057156*^9}, {3.7606348709661922`*^9, 3.760634876894898*^9}, 
   3.760634908164542*^9, {3.7606350989457808`*^9, 3.7606350992455683`*^9}, {
   3.760677337074996*^9, 3.760677337468783*^9}, {3.7628792412498703`*^9, 
   3.762879242031475*^9}, {3.762959803080724*^9, 
   3.762959803329504*^9}},ExpressionUUID->"53784c28-bac3-4df7-b4d6-\
c9459da18d0e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"e1", "=", 
    RowBox[{
     RowBox[{"-", "v1"}], "+", "v2"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{
    RowBox[{"-", "v2"}], "+", "v3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e3", "=", 
   RowBox[{
    RowBox[{"-", "v3"}], "+", "v4"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e4", "=", 
   RowBox[{
    RowBox[{"-", "v4"}], "+", "v5"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e5", "=", 
   RowBox[{
    RowBox[{"-", "v5"}], "+", "v6"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e6", "=", 
   RowBox[{
    RowBox[{"-", "v6"}], "+", "v7"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e7", "=", 
   RowBox[{
    RowBox[{"-", "v7"}], "+", "v8"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e8", "=", 
   RowBox[{"-", "v8"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e9", "=", 
   RowBox[{
    RowBox[{"-", "v9"}], "+", "v10"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e10", "=", 
   RowBox[{
    RowBox[{"-", "v10"}], "+", "v11"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e11", "=", 
   RowBox[{"-", "v11"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e12", "=", 
   RowBox[{"v0", "+", "v9", "+", "v10", "+", "v11"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e13", "=", 
   RowBox[{"v0", "+", 
    RowBox[{"2", "v1"}], "+", "v9"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e14", "=", 
   RowBox[{"v0", "+", "v1", "+", "v2", "+", "v3", "+", "v4"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e15", "=", 
   RowBox[{
    RowBox[{"2", "v0"}], "+", "v1", "+", "v2", "+", "v3", "+", "v4", "+", 
    "v5", "+", "v6", "+", "v9", "+", "v10"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e16", "=", 
   RowBox[{
    RowBox[{"2", "v0"}], "+", "v1", "+", "v2", "+", "v3", "+", "v4", "+", 
    "v5", "+", "v6", "+", "v7", "+", "v8", "+", "v9"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e17", "=", 
   RowBox[{
    RowBox[{"3", "v0"}], "+", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{"v1", "+", "v2"}], ")"}]}], "+", "v3", "+", "v4", "+", "v5", 
    "+", "v6", "+", "v7", "+", "v8", "+", "v9", "+", "v10", "+", "v11"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"e18", "=", 
   RowBox[{
    RowBox[{"4", "v0"}], "+", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
      "v1", "+", "v2", "+", "v3", "+", "v4", "+", "v5", "+", "v6", "+", 
       "v7"}], ")"}]}], "+", "v9", "+", "v10", "+", "v11"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.754247605639076*^9, 3.7542476463376746`*^9}, {
   3.7542476909997272`*^9, 3.75424769576234*^9}, {3.754247748432776*^9, 
   3.754247752456495*^9}, {3.754265587640855*^9, 3.754265606522153*^9}, {
   3.7545023480007434`*^9, 3.7545023590527573`*^9}, {3.7545109786068277`*^9, 
   3.7545109812052712`*^9}, {3.754511856874744*^9, 3.7545118579452834`*^9}, {
   3.754514337201006*^9, 3.7545143449562993`*^9}, {3.7545143775505514`*^9, 
   3.7545143816351643`*^9}, {3.7545732333107433`*^9, 3.754573243125018*^9}, {
   3.754573332704219*^9, 3.7545733464197054`*^9}, {3.754573421214228*^9, 
   3.7545734308343873`*^9}, {3.758334864665842*^9, 3.7583348976457005`*^9}, {
   3.758338393275598*^9, 3.7583384079328585`*^9}, {3.758338488110174*^9, 
   3.758338491281543*^9}, {3.7583385591617184`*^9, 3.758338570176575*^9}, {
   3.7583388441845007`*^9, 3.7583388547033725`*^9}, {3.758338926475912*^9, 
   3.758338927223629*^9}, {3.7583389690481977`*^9, 3.7583389747994957`*^9}, {
   3.758339012087595*^9, 3.7583390124548397`*^9}, {3.758339085369973*^9, 
   3.758339087635461*^9}, {3.7583391562305837`*^9, 3.758339240737707*^9}, {
   3.7583400755654745`*^9, 3.758340093254896*^9}, {3.758413246971608*^9, 
   3.758413269266621*^9}, {3.758413318231089*^9, 3.758413321220416*^9}, {
   3.758413437096233*^9, 3.7584134502654295`*^9}, {3.7584828377920403`*^9, 
   3.758483016025817*^9}, {3.760634883555806*^9, 3.7606349023906403`*^9}, {
   3.7606354201611834`*^9, 3.7606354241555433`*^9}, {3.7606354555051928`*^9, 
   3.760635525109261*^9}, {3.760677109537662*^9, 3.76067713846944*^9}, {
   3.7606771687702923`*^9, 3.7606773277314157`*^9}, {3.7628792556563807`*^9, 
   3.76287927333296*^9}, {3.78084469659888*^9, 3.7808447541824427`*^9}, {
   3.780844798380509*^9, 3.780844831078599*^9}, {3.780844862380816*^9, 
   3.780845040766665*^9}, 3.78091368336353*^9, {3.780914852893201*^9, 
   3.780914853678197*^9}},
 CellLabel->
  "In[881]:=",ExpressionUUID->"85f83c3b-e0e7-4950-92bc-aaec05683032"]
}, Closed]],

Cell[CellGroupData[{

Cell["Reflections in the bounding hyperplanes of P_11", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634508034494*^9}, {
  3.760634743268852*^9, 3.760634744473783*^9}, {3.760634926701776*^9, 
  3.760634932832596*^9}, {3.760635075103628*^9, 3.760635095693418*^9}, {
  3.7606773439415817`*^9, 3.7606773443720083`*^9}, {3.762879281024118*^9, 
  3.762879281815436*^9}, {3.76295980569317*^9, 
  3.762959805924695*^9}},ExpressionUUID->"712e8d6d-ff9f-4e28-9687-\
0443595a9748"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"s1", "=", 
   RowBox[{"Ref", "[", "e1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s2", "=", 
   RowBox[{"Ref", "[", "e2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s3", "=", 
   RowBox[{"Ref", "[", "e3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s4", "=", 
   RowBox[{"Ref", "[", "e4", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s5", "=", 
   RowBox[{"Ref", "[", "e5", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s6", "=", 
   RowBox[{"Ref", "[", "e6", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s7", "=", 
   RowBox[{"Ref", "[", "e7", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s8", "=", 
   RowBox[{"Ref", "[", "e8", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s9", "=", 
   RowBox[{"Ref", "[", "e9", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s10", "=", 
   RowBox[{"Ref", "[", "e10", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s11", "=", 
   RowBox[{"Ref", "[", "e11", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s12", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e12", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s13", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e13", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s14", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e14", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s15", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e15", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s16", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e16", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s17", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e17", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s18", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e18", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7583349010431814`*^9, 3.7583349033210793`*^9}, {
   3.7583349411761537`*^9, 3.7583349412939816`*^9}, {3.758335374359543*^9, 
   3.758335432323221*^9}, {3.75834115524435*^9, 3.7583411844974585`*^9}, {
   3.758413279687951*^9, 3.7584132884369483`*^9}, {3.758413462371809*^9, 
   3.7584134717453995`*^9}, {3.7584830515937543`*^9, 3.7584830663188906`*^9}, 
   3.758550669474656*^9, {3.760635113072641*^9, 3.760635150575037*^9}, {
   3.76063555893176*^9, 3.760635559624592*^9}, {3.760677350670711*^9, 
   3.760677365063189*^9}, {3.762879291622415*^9, 3.762879368691245*^9}, {
   3.780845051027144*^9, 3.780845069627535*^9}, {3.780913625854308*^9, 
   3.78091369424017*^9}},
 CellLabel->
  "In[899]:=",ExpressionUUID->"9c1d1f4a-761a-4ebf-94ff-8cf3eec42b29"]
}, Closed]],

Cell[CellGroupData[{

Cell["Matrices of reflections", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634485916493*^9}, {
  3.760634734543194*^9, 3.76063473748796*^9}, {3.760636105468917*^9, 
  3.760636110073513*^9}},ExpressionUUID->"fdb5b133-7c1b-448f-8775-\
8b0026555aa9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s1", "]"}]], "Input",
 CellChangeTimes->{{3.7606355651667013`*^9, 3.760635569520255*^9}},
 CellLabel->
  "In[923]:=",ExpressionUUID->"35bb3ec5-d7e3-4474-9f30-983a81db1e8b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760635570458552*^9, 3.760635613285615*^9, 3.760635660184409*^9, 
   3.76063569115554*^9, 3.76067737285673*^9, 3.762429056609301*^9, 
   3.762429247715457*^9, 3.762429737010991*^9, 3.7624298114199877`*^9, 
   3.762878544480448*^9, 3.762879376070075*^9, 3.762918958531583*^9, 
   3.762938490277059*^9, 3.7809137012010736`*^9, 3.780913760892713*^9, {
   3.780914583935596*^9, 3.7809145879996*^9}, 3.780914891268648*^9, 
   3.782217889803087*^9, {3.782564571598853*^9, 3.7825645978536367`*^9}, 
   3.782564650771761*^9, 3.7825647607641573`*^9},
 CellLabel->
  "Out[923]//MatrixForm=",ExpressionUUID->"f78694d3-8e1a-4ccd-93d7-\
700d244dd4a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s2", "]"}]], "Input",
 CellChangeTimes->{{3.760635696720151*^9, 3.760635701671376*^9}},
 CellLabel->
  "In[924]:=",ExpressionUUID->"ab739097-e400-4fb5-91c3-dd62d96af63b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760635702552224*^9, 3.760677376444703*^9, 3.7624290566751747`*^9, 
   3.762429247765361*^9, 3.762429737158946*^9, 3.762429811470536*^9, 
   3.762878544797051*^9, 3.762879378516737*^9, 3.76291895859134*^9, 
   3.762938490336214*^9, 3.780914591930941*^9, 3.780914893453538*^9, {
   3.782564571617895*^9, 3.782564597875634*^9}, 3.7825646570977497`*^9, 
   3.782564767098419*^9},
 CellLabel->
  "Out[924]//MatrixForm=",ExpressionUUID->"adfe0203-dc25-455c-82bf-\
b46d9bd0d2ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s3", "]"}]], "Input",
 CellChangeTimes->{{3.760635704534789*^9, 3.760635708824257*^9}},
 CellLabel->
  "In[925]:=",ExpressionUUID->"8facb9f5-da9c-4185-bbbc-5641640b2341"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760635709587878*^9, 3.760677378712181*^9, 3.762429057014164*^9, 
   3.76242924781502*^9, 3.762429737310276*^9, 3.762429811520811*^9, 
   3.762878544963378*^9, 3.762879380967724*^9, 3.762918958639543*^9, 
   3.762938490390812*^9, 3.780914595653277*^9, 3.78091489583595*^9, {
   3.7825645716265697`*^9, 3.7825645978831778`*^9}, 3.782564770326866*^9},
 CellLabel->
  "Out[925]//MatrixForm=",ExpressionUUID->"b98b76b2-5ece-4174-9e22-\
a58688a86bc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s4", "]"}]], "Input",
 CellChangeTimes->{{3.7606360169388533`*^9, 3.760636023512166*^9}},
 CellLabel->
  "In[926]:=",ExpressionUUID->"9c2a4e5b-0059-40c6-b784-f852d5d695fb"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606360243533983`*^9, 3.760677381765971*^9, 3.762429057130641*^9, 
   3.762429247915612*^9, 3.7624297375271606`*^9, 3.762429811570095*^9, 
   3.7628785450799847`*^9, 3.762879383553878*^9, 3.762918958691039*^9, 
   3.762938490451713*^9, 3.780914599137331*^9, 3.7809148989193172`*^9, {
   3.7825645716463137`*^9, 3.7825645979072247`*^9}, 3.782564773059815*^9},
 CellLabel->
  "Out[926]//MatrixForm=",ExpressionUUID->"217917dd-83ab-434e-86e0-\
2368a76a9d78"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s5", "]"}]], "Input",
 CellChangeTimes->{{3.760636026257296*^9, 3.7606360316710453`*^9}},
 CellLabel->
  "In[785]:=",ExpressionUUID->"fbbbef07-b0ed-4d96-af0f-f90f26362824"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760636032559081*^9, 3.7606773845979433`*^9, 3.76242905717988*^9, 
   3.762429248048519*^9, 3.762429737677389*^9, 3.762429811620232*^9, 
   3.7628785451470213`*^9, 3.762879385987094*^9, 3.762918958738493*^9, 
   3.7629384905030003`*^9, 3.780914603027809*^9, 3.780914901468247*^9, {
   3.782564571654812*^9, 3.7825645979181433`*^9}},
 CellLabel->
  "Out[785]//MatrixForm=",ExpressionUUID->"35f1576c-6af2-4142-a803-\
b986c38a1a15"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s6", "]"}]], "Input",
 CellChangeTimes->{{3.7606360345571117`*^9, 3.760636039453999*^9}},
 CellLabel->
  "In[786]:=",ExpressionUUID->"964f09de-3fba-422e-8061-74872faa30fe"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760636040230762*^9, 3.7606773876496763`*^9, 3.762429057230157*^9, 
   3.762429248130329*^9, 3.762429737747965*^9, 3.762429811670257*^9, 
   3.762878545213068*^9, 3.7628793884218693`*^9, 3.762918958825213*^9, 
   3.76293849054176*^9, 3.7809146068403797`*^9, 3.7809149041514606`*^9, {
   3.782564571673153*^9, 3.782564597940158*^9}},
 CellLabel->
  "Out[786]//MatrixForm=",ExpressionUUID->"e9462599-f38f-4298-8bba-\
e8634a04feb6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s7", "]"}]], "Input",
 CellChangeTimes->{{3.7606360427860603`*^9, 3.760636047280512*^9}},
 CellLabel->
  "In[787]:=",ExpressionUUID->"b57eec44-cdc2-42bb-ba90-9ef1f69869d0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606360484229403`*^9, 3.7606773907427387`*^9, 3.762429057281247*^9, 
   3.762429248182886*^9, 3.7624297378278637`*^9, 3.762429811720255*^9, 
   3.762878545279464*^9, 3.76287939112134*^9, 3.762918958906247*^9, 
   3.762938490599373*^9, 3.780914610018098*^9, 3.780914907655898*^9, {
   3.782564571682597*^9, 3.78256459795113*^9}},
 CellLabel->
  "Out[787]//MatrixForm=",ExpressionUUID->"dc1b9471-346d-490b-86ca-\
81ddbccd6c0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s8", "]"}]], "Input",
 CellChangeTimes->{{3.760636050337884*^9, 3.760636055108347*^9}},
 CellLabel->
  "In[788]:=",ExpressionUUID->"bb75233f-d9b1-43f6-b066-5532c75b74e8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606360562751093`*^9, 3.760677394144589*^9, 3.762429057329523*^9, 
   3.762429248231818*^9, 3.76242973789382*^9, 3.762429811770894*^9, 
   3.762878545347714*^9, 3.7628793935614223`*^9, 3.762918958987702*^9, 
   3.7629384906535063`*^9, {3.780914612909912*^9, 3.7809146173673983`*^9}, 
   3.780914671844131*^9, 3.7809149107030973`*^9, {3.782564571700601*^9, 
   3.7825645979741173`*^9}},
 CellLabel->
  "Out[788]//MatrixForm=",ExpressionUUID->"93c9e2ce-274c-4c38-bbd8-\
e89a2d393397"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s9", "]"}]], "Input",
 CellChangeTimes->{{3.760636058350872*^9, 3.7606360635656433`*^9}},
 CellLabel->
  "In[789]:=",ExpressionUUID->"6f8e5e31-32b2-41e2-abb8-98d8215309d6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760636064415887*^9, 3.760677397165681*^9, 3.762429057380587*^9, 
   3.762429248282584*^9, 3.762429738009719*^9, 3.762429811819364*^9, 
   3.762878545414898*^9, 3.7628793959446507`*^9, 3.762918959140226*^9, 
   3.76293849070126*^9, 3.78091462155742*^9, 3.780914915778078*^9, {
   3.782564571708761*^9, 3.7825645979897547`*^9}},
 CellLabel->
  "Out[789]//MatrixForm=",ExpressionUUID->"b26fb5dc-f22b-454f-b6e4-\
11dd6b95f7f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s10", "]"}]], "Input",
 CellChangeTimes->{{3.760677400964127*^9, 3.760677410232313*^9}},
 CellLabel->
  "In[790]:=",ExpressionUUID->"70efd469-4baf-4035-9ebf-986dfa54c9f4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606774118226852`*^9, 3.7624290574308643`*^9, 3.7624292483323393`*^9, 
   3.762429738186494*^9, 3.762429812020055*^9, 3.7628785454805803`*^9, 
   3.762879398312866*^9, 3.762918959191553*^9, 3.762938490753302*^9, 
   3.7809146262765903`*^9, 3.780914919066671*^9, {3.782564571728409*^9, 
   3.782564598023932*^9}},
 CellLabel->
  "Out[790]//MatrixForm=",ExpressionUUID->"2a960c44-9c5a-489e-995e-\
04093464f6ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s11", "]"}]], "Input",
 CellChangeTimes->{{3.760677414378298*^9, 3.7606774178590527`*^9}},
 CellLabel->
  "In[791]:=",ExpressionUUID->"594aca02-2ba3-4913-91fa-10c950c8dcff"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760677418812731*^9, 3.7624290574779863`*^9, 3.7624292483814993`*^9, 
   3.762429738252873*^9, 3.762429812103312*^9, 3.762878545546801*^9, 
   3.762879400880234*^9, 3.762918959257371*^9, 3.7629384907992277`*^9, 
   3.7809146294712963`*^9, 3.780914921834553*^9, {3.782564571737216*^9, 
   3.78256459803574*^9}},
 CellLabel->
  "Out[791]//MatrixForm=",ExpressionUUID->"c3beca6d-cdf3-4f3a-bbe4-\
5a2f22dea4fe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s12", "]"}]], "Input",
 CellChangeTimes->{{3.762879409010992*^9, 3.762879409076874*^9}},
 CellLabel->
  "In[792]:=",ExpressionUUID->"96d81b82-f95a-4d9b-a195-439e963109ed"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}]},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}]},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}]},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.762879409914608*^9, 3.7629189593058987`*^9, 3.762938490858672*^9, 
   3.780914633144474*^9, 3.780914924542759*^9, {3.782564571755659*^9, 
   3.7825645980582027`*^9}},
 CellLabel->
  "Out[792]//MatrixForm=",ExpressionUUID->"957759bc-b8e0-4dbf-b97d-\
365c1ed3ccbf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s13", "]"}]], "Input",
 CellChangeTimes->{{3.762879419234782*^9, 3.76287941929218*^9}},
 CellLabel->
  "In[793]:=",ExpressionUUID->"c27cbc88-e75d-44d1-bfb6-27b3f0c53812"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "2"}], "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"1", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.762879420116486*^9, 3.7629189593581533`*^9, 3.762938490899544*^9, 
   3.780914637826785*^9, 3.7809149272770243`*^9, {3.782564571764772*^9, 
   3.7825645980684843`*^9}},
 CellLabel->
  "Out[793]//MatrixForm=",ExpressionUUID->"0bf72ab9-006c-43a9-abdd-\
1ef60c908149"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s14", "]"}]], "Input",
 CellChangeTimes->{{3.7628794301208*^9, 3.762879430181506*^9}},
 CellLabel->
  "In[794]:=",ExpressionUUID->"049f2892-9cbb-4e81-9194-f50054b5bfc1"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"2", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7628794310241327`*^9, 3.7629189594036694`*^9, 3.7629384909487267`*^9, 
   3.7809146416457367`*^9, 3.7809149299801893`*^9, {3.782564571784093*^9, 
   3.782564598091538*^9}},
 CellLabel->
  "Out[794]//MatrixForm=",ExpressionUUID->"79876da8-b2e5-495b-82c6-\
cd337e0ba6a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s15", "]"}]], "Input",
 CellChangeTimes->{{3.762879441916991*^9, 3.762879441977187*^9}},
 CellLabel->
  "In[795]:=",ExpressionUUID->"7fac820c-9eb4-41c6-a3d5-3f8b514cd979"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"9", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0", "0", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], "0"},
     {"4", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"4", 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], "0", "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.762879442794078*^9, 3.7628794525097933`*^9}, 
   3.762918959456243*^9, 3.7629384909955683`*^9, 3.780914644727623*^9, 
   3.780914932783914*^9, 3.782217898698317*^9, {3.782564571793313*^9, 
   3.782564598101955*^9}},
 CellLabel->
  "Out[795]//MatrixForm=",ExpressionUUID->"1dc3bd06-a550-4d3f-8a40-\
2f367a3db8ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s16", "]"}]], "Input",
 CellChangeTimes->{{3.7808450863705482`*^9, 3.7808450864339523`*^9}},
 CellLabel->
  "In[796]:=",ExpressionUUID->"229bb3fb-449f-4a34-8901-5c11829a2cac"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"9", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}], "0", "0"},
     {"4", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.780914648437872*^9, 3.7809149355311832`*^9, {3.7825645718134193`*^9, 
   3.782564598125225*^9}},
 CellLabel->
  "Out[796]//MatrixForm=",ExpressionUUID->"748f3e3c-19ae-4ee4-bda3-\
4df0e20d9907"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s17", "]"}]], "Input",
 CellChangeTimes->{{3.780845090091414*^9, 3.780845090150732*^9}},
 CellLabel->
  "In[797]:=",ExpressionUUID->"2b508d45-1d0f-420e-b631-3862ba53878d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"19", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}]},
     {"12", 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}]},
     {"6", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"6", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"6", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"6", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"6", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"6", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"6", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"6", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}]},
     {"6", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.780914653167098*^9, 3.780914938729888*^9, {3.782564571823122*^9, 
   3.782564598134335*^9}},
 CellLabel->
  "Out[797]//MatrixForm=",ExpressionUUID->"426beae8-d6d2-4218-a628-\
3bd0dfab581b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s18", "]"}]], "Input",
 CellChangeTimes->{{3.780845094381339*^9, 3.7808450944457617`*^9}},
 CellLabel->
  "In[798]:=",ExpressionUUID->"23c7ffff-17d2-42d8-a449-fe6072f00373"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"33", 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "8"}], "0", 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "8"}]},
     {"16", 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], "0", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}]},
     {"16", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], "0", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}]},
     {"16", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], "0", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}]},
     {"16", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], "0", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}]},
     {"16", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], "0", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}]},
     {"16", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], "0", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}]},
     {"16", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], "0", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}]},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}]},
     {"8", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.780914656508073*^9, 3.7809149418019447`*^9, {3.782564571842362*^9, 
   3.7825645981567574`*^9}},
 CellLabel->
  "Out[798]//MatrixForm=",ExpressionUUID->"f36ddde7-a14b-48ac-9da2-\
2adc3fbc4718"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
An infinite-order orientation-reversing element \\delta in the kernel of \
retraction R\
\>", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634485916493*^9}, {
  3.760634734543194*^9, 3.76063473748796*^9}, {3.760636132276795*^9, 
  3.7606361468661547`*^9}, {3.762431118657579*^9, 
  3.762431118945298*^9}},ExpressionUUID->"485d0b94-10d6-4b57-a580-\
75bcacfbd291"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"delta11", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"s7", ".", "s8", ".", "s16"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "delta11", "]"}]}], "Input",
 CellChangeTimes->{{3.758415296056778*^9, 3.7584153081303625`*^9}, {
   3.7584824392905817`*^9, 3.758482458591383*^9}, {3.758482617271708*^9, 
   3.758482619601139*^9}, {3.7584831141625404`*^9, 3.7584831281660757`*^9}, {
   3.7606360697054377`*^9, 3.760636081803093*^9}, {3.7606361534771547`*^9, 
   3.760636184027502*^9}, {3.760677434751212*^9, 3.76067743510679*^9}, {
   3.760677468044273*^9, 3.7606774701394167`*^9}, {3.762879467727083*^9, 
   3.762879485152095*^9}, 3.780845100620017*^9, {3.7809152011635027`*^9, 
   3.780915206297352*^9}, {3.780915262483699*^9, 3.7809152650144243`*^9}, {
   3.780915411957643*^9, 3.780915412449812*^9}},
 CellLabel->
  "In[927]:=",ExpressionUUID->"598ab140-94cb-4810-88c6-2c2e07709847"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"9", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}], "0", "0"},
     {"4", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {
      RowBox[{"-", "4"}], "1", "1", "1", "1", "1", "1", "1", "0", "2", "0", 
      "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7584763329422874`*^9, 3.7584771619178305`*^9, 3.7584799303704815`*^9, 
   3.7584831395069013`*^9, 3.7585507431547613`*^9, 3.7585508711514273`*^9, 
   3.760636225475247*^9, 3.760677471103022*^9, 3.762429057563319*^9, 
   3.7624292484327297`*^9, 3.762429738319017*^9, 3.762429812152945*^9, 
   3.762878545694034*^9, {3.7628794859303617`*^9, 3.762879507033827*^9}, 
   3.76291895964084*^9, 3.762938491099929*^9, 3.780915208220372*^9, 
   3.7809152661784143`*^9, 3.7809154144834023`*^9, 3.782218209267756*^9, {
   3.782564571853445*^9, 3.782564598168035*^9}, 3.78256478370709*^9},
 CellLabel->
  "Out[928]//MatrixForm=",ExpressionUUID->"17ed0b53-6184-4c82-8d52-\
e014d8ee07ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"JordanDecomposition", "[", "delta11", "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.780915214901561*^9, 3.780915220909902*^9}, {
  3.780915424967697*^9, 3.780915461905738*^9}},
 CellLabel->
  "In[929]:=",ExpressionUUID->"4839f1ec-6fe4-4388-b819-e01b060d07d3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "1"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7809152220340633`*^9, 3.780915270094553*^9, {3.780915435636816*^9, 
   3.780915462456746*^9}, {3.782564571913742*^9, 3.782564598191614*^9}, 
   3.782564788664627*^9},
 CellLabel->
  "Out[929]//MatrixForm=",ExpressionUUID->"f9fffad7-2daf-4a8a-aab8-\
46da4b1fe609"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", "delta11", "]"}]], "Input",
 CellChangeTimes->{{3.780915323275239*^9, 3.780915327611369*^9}},
 CellLabel->
  "In[802]:=",ExpressionUUID->"1dd4ca62-cbea-4369-b68a-36d2b4e186b4"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{
  3.780915328137237*^9, 3.780915486119462*^9, {3.782564571943171*^9, 
   3.782564598203328*^9}},
 CellLabel->
  "Out[802]=",ExpressionUUID->"8007469c-c208-45e0-9681-4c50cbe40310"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Computing the orders of reductions of \\delta", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.7606302283738327`*^9, 
   3.760630247815802*^9}, {3.7606775728478603`*^9, 3.7606775752317867`*^9}, {
   3.760678057751779*^9, 3.7606780730029297`*^9}, {3.7624299543377132`*^9, 
   3.76242997076448*^9}, 
   3.762430098214566*^9},ExpressionUUID->"14556717-0d24-4fdd-a973-\
5b86c82671d5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixReductionOrder", "[", 
  RowBox[{"delta11", ",", "3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FactorInteger", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.762879625768641*^9, 3.762879625837532*^9}, {
  3.7809155052455378`*^9, 3.7809155053036757`*^9}},
 CellLabel->
  "In[930]:=",ExpressionUUID->"d945a90e-5408-4c8e-8e7d-4b2b9fe59d1a"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{
  3.762879626761689*^9, 3.7628796724575863`*^9, 3.762882758991707*^9, 
   3.762882835146771*^9, 3.7628879131810713`*^9, 3.762888020725836*^9, 
   3.7629189598079777`*^9, 3.762938491148508*^9, 3.780915506531432*^9, {
   3.782564571961783*^9, 3.782564598225462*^9}, 3.7825647941486273`*^9},
 CellLabel->
  "Out[930]=",ExpressionUUID->"a6d8c8de-0490-4603-9052-29232db1662c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.762879626761689*^9, 3.7628796724575863`*^9, 3.762882758991707*^9, 
   3.762882835146771*^9, 3.7628879131810713`*^9, 3.762888020725836*^9, 
   3.7629189598079777`*^9, 3.762938491148508*^9, 3.780915506531432*^9, {
   3.782564571961783*^9, 3.782564598225462*^9}, 3.7825647941519403`*^9},
 CellLabel->
  "Out[931]=",ExpressionUUID->"2868e71c-8cc4-4905-9456-f13ef137f277"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixReductionOrder", "[", 
  RowBox[{"delta11", ",", "4"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FactorInteger", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.762429990877653*^9, 3.762429990947919*^9}, {
  3.762430082469998*^9, 3.762430082513323*^9}, {3.7624301498441*^9, 
  3.762430149908042*^9}, {3.762879520317788*^9, 3.7628795836261044`*^9}, {
  3.780915511114921*^9, 3.780915511323409*^9}},
 CellLabel->
  "In[932]:=",ExpressionUUID->"f615c14c-e1fb-4d52-ad0e-c5edf3f52cc5"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{
  3.76242999822091*^9, 3.76243008700937*^9, 3.762430181715603*^9, {
   3.7628795360193853`*^9, 3.762879585677874*^9}, 3.762879675775765*^9, 
   3.762882837772812*^9, 3.76288796419351*^9, 3.762888023488446*^9, 
   3.762918961001356*^9, 3.762938492067618*^9, 3.780915512497916*^9, {
   3.782564571974576*^9, 3.782564598240692*^9}, 3.782564797141572*^9},
 CellLabel->
  "Out[932]=",ExpressionUUID->"658f8878-92d1-441f-b503-48ba03add590"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"2", ",", "2"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.76242999822091*^9, 3.76243008700937*^9, 3.762430181715603*^9, {
   3.7628795360193853`*^9, 3.762879585677874*^9}, 3.762879675775765*^9, 
   3.762882837772812*^9, 3.76288796419351*^9, 3.762888023488446*^9, 
   3.762918961001356*^9, 3.762938492067618*^9, 3.780915512497916*^9, {
   3.782564571974576*^9, 3.782564598240692*^9}, 3.78256479714495*^9},
 CellLabel->
  "Out[933]=",ExpressionUUID->"034a385c-9c64-4cc5-a223-9d28e1ed871f"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Polytope P_12", "Section",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634485916493*^9}, {
   3.760634734543194*^9, 3.76063473748796*^9}, 3.760676898328662*^9, {
   3.7624302341160583`*^9, 3.762430234347587*^9}, {3.762753829978767*^9, 
   3.762753835486581*^9}, {3.7629620132913437`*^9, 
   3.7629620135281277`*^9}},ExpressionUUID->"f39bbcab-bee0-4e54-869d-\
6caa69f07244"],

Cell[CellGroupData[{

Cell["Quadratic form associated to polytope P_12 in H^12", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634485916493*^9}, {
   3.760676986532968*^9, 3.7606769882194347`*^9}, {3.762430253695668*^9, 
   3.7624302563305483`*^9}, {3.7628796941929903`*^9, 
   3.7628797047535152`*^9}, {3.762959808892356*^9, 3.762959809112221*^9}, 
   3.780845124194413*^9},ExpressionUUID->"8519edb1-8a7b-4ab6-9810-\
6fa158fbaeec"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f12", "[", 
    RowBox[{"{", 
     RowBox[{
     "x0_", ",", "x1_", ",", "x2_", ",", "x3_", ",", "x4_", ",", "x5_", ",", 
      "x6_", ",", "x7_", ",", "x8_", ",", "x9_", ",", "x10_", ",", "x11_", 
      ",", "x12_"}], "}"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     SuperscriptBox["x0", "2"]}], "+", 
    SuperscriptBox["x1", "2"], "+", 
    SuperscriptBox["x2", "2"], "+", 
    SuperscriptBox["x3", "2"], "+", 
    SuperscriptBox["x4", "2"], "+", 
    SuperscriptBox["x5", "2"], "+", 
    SuperscriptBox["x6", "2"], "+", 
    SuperscriptBox["x7", "2"], "+", 
    SuperscriptBox["x8", "2"], "+", 
    SuperscriptBox["x9", "2"], "+", 
    SuperscriptBox["x10", "2"], "+", 
    SuperscriptBox["x11", "2"], "+", 
    RowBox[{"2", 
     SuperscriptBox["x12", "2"]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.76243029506234*^9, 3.7624303046811867`*^9}, {
   3.762879710044139*^9, 3.762879728240542*^9}, 3.7808460699212*^9},
 CellLabel->
  "In[807]:=",ExpressionUUID->"607651ad-9fdc-4ba0-a855-bdd85be18eaa"]
}, Closed]],

Cell[CellGroupData[{

Cell["Standard basis of R^{1,12}", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634508034494*^9}, {
  3.760634743268852*^9, 3.760634744473783*^9}, {3.7606769839900713`*^9, 
  3.760676984051385*^9}, {3.762430336334749*^9, 3.762430336389864*^9}, {
  3.762879733164195*^9, 
  3.76287973330521*^9}},ExpressionUUID->"ce305870-c929-4418-8080-\
f0ca7fd17dc0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "v0", ",", "v1", ",", "v2", ",", "v3", ",", "v4", ",", "v5", ",", "v6", 
     ",", "v7", ",", "v8", ",", "v9", ",", "v10", ",", "v11", ",", "v12"}], 
    "}"}], "=", 
   RowBox[{"IdentityMatrix", "[", "13", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.741986259869416*^9, 3.7419862881029577`*^9}, {
  3.753271317323329*^9, 3.753271354773836*^9}, {3.754247538035009*^9, 
  3.7542475546382313`*^9}, {3.7542655074583955`*^9, 3.754265525374155*^9}, {
  3.7583347561999874`*^9, 3.7583347762341795`*^9}, {3.7584822744062696`*^9, 
  3.7584822957468653`*^9}, {3.7606352279477*^9, 3.760635249960392*^9}, {
  3.760676948270227*^9, 3.760676979407267*^9}, {3.76243033085518*^9, 
  3.762430367761477*^9}, {3.762879743324482*^9, 3.762879766181024*^9}, {
  3.762938441567527*^9, 3.762938449532323*^9}},
 CellLabel->
  "In[808]:=",ExpressionUUID->"c43e9da7-cdeb-4142-8dd0-96862d17825b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Reflection associated to a given root", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634508034494*^9}, {
  3.760634743268852*^9, 
  3.7606347731325083`*^9}},ExpressionUUID->"7fbc4e6d-af93-4c8f-8b6f-\
d3dae6dfab50"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ref", "[", 
    RowBox[{"{", 
     RowBox[{
     "x0_", ",", "x1_", ",", "x2_", ",", "x3_", ",", "x4_", ",", "x5_", ",", 
      "x6_", ",", "x7_", ",", "x8_", ",", "x9_", ",", "x10_", ",", "x11_", 
      ",", "x12_"}], "}"}], "]"}], "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v0", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"-", "2"}], ")"}], "x0"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v1", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x1"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v2", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x2"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v3", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x3"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v4", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x4"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v5", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x5"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v6", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x6"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v7", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x7"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v8", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x8"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v9", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x9"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v10", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x10"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v11", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", "x11"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"v12", "-", 
        RowBox[{
         FractionBox[
          RowBox[{"2", 
           RowBox[{"(", "2", ")"}], "x12"}], 
          RowBox[{"f12", "[", 
           RowBox[{"{", 
            RowBox[{
            "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
             "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", 
             ",", "x12"}], "}"}], "]"}]], 
         RowBox[{"{", 
          RowBox[{
          "x0", ",", "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", 
           "x6", ",", "x7", ",", "x8", ",", "x9", ",", "x10", ",", "x11", ",",
            "x12"}], "}"}]}]}], "}"}], "]"}], ",", "2"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdxU0oQwEAB/DXmqLWJl4hpE05bDUa+SrpHSztQKYcqFdmorQ9BybJZSly
MG07+KwtbES2iRCNHKTMx8VmpWQobY+2tEVk3v8dfv2kOkbbKyAIooiDGdvF
dtNTjDI+Z3hxi/zkEis+A/xBG/OANSl3FItX5j9wqmo4gffXatK4q/hUqOYm
b19I3P8rK8AGh1iK9Q5Shuujm+X40WGtwMqd4AA2O48YbB9iKgMpbnKKP2Ig
6vDWTIxfpHeG8Vz3RBS/tCkkV9wmeQN/87TBt/4VowQh/x6mJZ0jPu6z7Mdx
vPr33TdEsJR90GPE9KR4DBcalPzy2dEprKSrLXjx8MiD4zlJ/lyRa+GY23K9
tIzP1a1unCz1+7C5tt0bErJUlWqQ/82UOMAu1nqK7/xlIfyuawtj7c9GdSST
pfIUcTXWdIRaSrJY6qEnTeP7vnwX/nBd7OIbTSOlV7CU6pXh/wcq4+6v
  "],
 CellLabel->
  "In[809]:=",ExpressionUUID->"3a8e05de-25f1-4f33-9a71-d74734d48e19"]
}, Closed]],

Cell[CellGroupData[{

Cell["Outer normals for P_12", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634508034494*^9}, {
   3.760634743268852*^9, 3.760634744473783*^9}, {3.76063480212357*^9, 
   3.76063481057156*^9}, {3.7606348709661922`*^9, 3.760634876894898*^9}, 
   3.760634908164542*^9, {3.7606350989457808`*^9, 3.7606350992455683`*^9}, {
   3.760677337074996*^9, 3.760677337468783*^9}, {3.76243067438335*^9, 
   3.7624306765916452`*^9}, {3.762880075508068*^9, 3.762880076829121*^9}, {
   3.76295981109424*^9, 
   3.7629598113223553`*^9}},ExpressionUUID->"da3e0004-7cac-4c4d-977a-\
0df2b9d9c86f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"e1", "=", 
    RowBox[{
     RowBox[{"-", "v1"}], "+", "v2"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{
    RowBox[{"-", "v2"}], "+", "v3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e3", "=", 
   RowBox[{
    RowBox[{"-", "v3"}], "+", "v4"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e4", "=", 
   RowBox[{
    RowBox[{"-", "v4"}], "+", "v5"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e5", "=", 
   RowBox[{
    RowBox[{"-", "v5"}], "+", "v6"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e6", "=", 
   RowBox[{
    RowBox[{"-", "v6"}], "+", "v7"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e7", "=", 
   RowBox[{
    RowBox[{"-", "v7"}], "+", "v8"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e8", "=", 
   RowBox[{
    RowBox[{"-", "v8"}], "+", "v9"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e9", "=", 
   RowBox[{
    RowBox[{"-", "v9"}], "+", "v10"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e10", "=", 
   RowBox[{
    RowBox[{"-", "v10"}], "+", "v11"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e11", "=", 
   RowBox[{"-", "v11"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e12", "=", 
   RowBox[{"-", "v12"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e13", "=", 
   RowBox[{"v0", "+", 
    RowBox[{"2", "v1"}], "+", "v12"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e14", "=", 
   RowBox[{"v0", "+", "v1", "+", "v2", "+", "v3", "+", "v4"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e15", "=", 
   RowBox[{
    RowBox[{"2", "v0"}], "+", "v1", "+", "v2", "+", "v3", "+", "v4", "+", 
    "v5", "+", "v6", "+", "v7", "+", "v8", "+", "v12"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e16", "=", 
   RowBox[{
    RowBox[{"2", "v0"}], "+", "v1", "+", "v2", "+", "v3", "+", "v4", "+", 
    "v5", "+", "v6", "+", "v7", "+", "v8", "+", "v9", "+", "v10"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"e17", "=", 
   RowBox[{
    RowBox[{"3", "v0"}], "+", "v1", "+", "v2", "+", "v3", "+", "v4", "+", 
    "v5", "+", "v6", "+", "v7", "+", "v8", "+", "v9", "+", "v10", "+", "v11", 
    "+", 
    RowBox[{"2", "v12"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e18", "=", 
   RowBox[{
    RowBox[{"3", "v0"}], "+", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{"v1", "+", "v2"}], ")"}]}], "+", "v3", "+", "v4", "+", "v5", 
    "+", "v6", "+", "v7", "+", "v8", "+", "v9", "+", "v10", "+", "v11", "+", 
    "v12"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e19", "=", 
   RowBox[{
    RowBox[{"3", 
     RowBox[{"(", 
      RowBox[{"v0", "+", "v1"}], ")"}]}], "+", "v2", "+", "v3", "+", "v4", 
    "+", "v5", "+", "v6", "+", "v7", "+", "v8", "+", "v9", "+", "v10", "+", 
    "v11"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e20", "=", 
   RowBox[{
    RowBox[{"5", "v0"}], "+", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
      "v1", "+", "v2", "+", "v3", "+", "v4", "+", "v5", "+", "v6", "+", "v7", 
       "+", "v8", "+", "v9", "+", "v10", "+", "v11", "+", "v12"}], 
      ")"}]}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.762430644925799*^9, 3.762430655569778*^9}, {
  3.762880092641707*^9, 3.762880115279274*^9}, {3.780846497074275*^9, 
  3.780846770785774*^9}, {3.780915754918747*^9, 3.780915755862368*^9}},
 CellLabel->
  "In[810]:=",ExpressionUUID->"754d01f8-9e26-447e-8559-a7710488c502"]
}, Closed]],

Cell[CellGroupData[{

Cell["Reflections in the bounding hyperplanes of P_12", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634508034494*^9}, {
  3.760634743268852*^9, 3.760634744473783*^9}, {3.760634926701776*^9, 
  3.760634932832596*^9}, {3.760635075103628*^9, 3.760635095693418*^9}, {
  3.7606773439415817`*^9, 3.7606773443720083`*^9}, {3.762430703785041*^9, 
  3.762430704023014*^9}, {3.762880151554591*^9, 3.762880152845953*^9}, {
  3.7629598128902197`*^9, 
  3.762959813114229*^9}},ExpressionUUID->"c991a6c3-00af-43fe-9b38-\
4bd6fadeab51"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"s1", "=", 
   RowBox[{"Ref", "[", "e1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s2", "=", 
   RowBox[{"Ref", "[", "e2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s3", "=", 
   RowBox[{"Ref", "[", "e3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s4", "=", 
   RowBox[{"Ref", "[", "e4", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s5", "=", 
   RowBox[{"Ref", "[", "e5", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s6", "=", 
   RowBox[{"Ref", "[", "e6", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s7", "=", 
   RowBox[{"Ref", "[", "e7", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s8", "=", 
   RowBox[{"Ref", "[", "e8", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s9", "=", 
   RowBox[{"Ref", "[", "e9", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s10", "=", 
   RowBox[{"Ref", "[", "e10", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s11", "=", 
   RowBox[{"Ref", "[", "e11", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s12", "=", 
   RowBox[{"Ref", "[", "e12", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s13", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e13", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s14", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e14", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s15", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e15", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s16", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e16", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s17", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e17", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s18", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e18", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s19", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e19", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s20", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Ref", "[", "e20", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7583349010431814`*^9, 3.7583349033210793`*^9}, {
   3.7583349411761537`*^9, 3.7583349412939816`*^9}, {3.758335374359543*^9, 
   3.758335432323221*^9}, {3.75834115524435*^9, 3.7583411844974585`*^9}, {
   3.758413279687951*^9, 3.7584132884369483`*^9}, {3.758413462371809*^9, 
   3.7584134717453995`*^9}, {3.7584830515937543`*^9, 3.7584830663188906`*^9}, 
   3.758550669474656*^9, {3.760635113072641*^9, 3.760635150575037*^9}, {
   3.76063555893176*^9, 3.760635559624592*^9}, {3.760677350670711*^9, 
   3.760677365063189*^9}, {3.7624307122860403`*^9, 3.76243072109004*^9}, {
   3.7628801622242813`*^9, 3.7628801973022137`*^9}, {3.76288041367297*^9, 
   3.762880458639756*^9}, {3.7808467796474733`*^9, 3.780846806584716*^9}},
 CellLabel->
  "In[830]:=",ExpressionUUID->"35a24140-f502-484e-9032-6989a9bcf2cf"]
}, Closed]],

Cell[CellGroupData[{

Cell["Matrices of reflections", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634485916493*^9}, {
  3.760634734543194*^9, 3.76063473748796*^9}, {3.760636105468917*^9, 
  3.760636110073513*^9}},ExpressionUUID->"649dbbac-00de-418e-ab16-\
dc632f9d07d4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s1", "]"}]], "Input",
 CellChangeTimes->{{3.7606355651667013`*^9, 3.760635569520255*^9}},
 CellLabel->
  "In[850]:=",ExpressionUUID->"eca03fbd-748c-4460-b097-09d4ee8f9dfc"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760635570458552*^9, 3.760635613285615*^9, 3.760635660184409*^9, 
   3.76063569115554*^9, 3.76067737285673*^9, 3.762429056609301*^9, 
   3.762429247715457*^9, 3.762429737010991*^9, 3.7624298114199877`*^9, 
   3.762430756908662*^9, 3.76288047012967*^9, {3.762881341479538*^9, 
   3.7628813525306587`*^9}, 3.762918961656599*^9, 3.7629384922602262`*^9, 
   3.780915639651638*^9, 3.780915777790914*^9, {3.7825645720616007`*^9, 
   3.782564598334276*^9}},
 CellLabel->
  "Out[850]//MatrixForm=",ExpressionUUID->"afe1ead6-00de-4e23-9e2e-\
9db0900b0b54"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s2", "]"}]], "Input",
 CellChangeTimes->{{3.760635696720151*^9, 3.760635701671376*^9}},
 CellLabel->
  "In[851]:=",ExpressionUUID->"a91fac41-822a-476f-8d53-1afb068077b0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760635702552224*^9, 3.760677376444703*^9, 3.7624290566751747`*^9, 
   3.762429247765361*^9, 3.762429737158946*^9, 3.762429811470536*^9, 
   3.7624307596989098`*^9, 3.7628813558355227`*^9, 3.762918961734425*^9, 
   3.7629384923200502`*^9, 3.780915642935487*^9, 3.7809157802191553`*^9, {
   3.7825645720799227`*^9, 3.7825645983564253`*^9}},
 CellLabel->
  "Out[851]//MatrixForm=",ExpressionUUID->"2e3cfa9f-b3c6-4192-92e2-\
5eee5372e578"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s3", "]"}]], "Input",
 CellChangeTimes->{{3.760635704534789*^9, 3.760635708824257*^9}},
 CellLabel->
  "In[852]:=",ExpressionUUID->"c56ad2a8-2816-4cb0-8efb-6588f93f0b46"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760635709587878*^9, 3.760677378712181*^9, 3.762429057014164*^9, 
   3.76242924781502*^9, 3.762429737310276*^9, 3.762429811520811*^9, 
   3.762430762278702*^9, 3.762881358307908*^9, 3.762918961800952*^9, 
   3.762938492368387*^9, 3.78091564620297*^9, 3.780915782695498*^9, {
   3.782564572088455*^9, 3.782564598367684*^9}},
 CellLabel->
  "Out[852]//MatrixForm=",ExpressionUUID->"62f5754a-2979-4a60-bd28-\
ddfbfe06cc7d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s4", "]"}]], "Input",
 CellChangeTimes->{{3.7606360169388533`*^9, 3.760636023512166*^9}},
 CellLabel->
  "In[853]:=",ExpressionUUID->"3008c6b0-cdb3-4dc6-818e-5ee143a275b2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606360243533983`*^9, 3.760677381765971*^9, 3.762429057130641*^9, 
   3.762429247915612*^9, 3.7624297375271606`*^9, 3.762429811570095*^9, 
   3.76243076449433*^9, 3.7628813631989527`*^9, 3.7629189618689327`*^9, 
   3.762938492420023*^9, 3.780915648988946*^9, 3.7809157852746067`*^9, {
   3.782564572108032*^9, 3.78256459839012*^9}},
 CellLabel->
  "Out[853]//MatrixForm=",ExpressionUUID->"6ca64ddd-ba53-4866-8512-\
7d3179f34d57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s5", "]"}]], "Input",
 CellChangeTimes->{{3.760636026257296*^9, 3.7606360316710453`*^9}},
 CellLabel->
  "In[854]:=",ExpressionUUID->"e1630fce-9062-47c7-b79f-ba7a97fb684b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760636032559081*^9, 3.7606773845979433`*^9, 3.76242905717988*^9, 
   3.762429248048519*^9, 3.762429737677389*^9, 3.762429811620232*^9, 
   3.762430767981873*^9, 3.7628813658738937`*^9, 3.762918961929583*^9, 
   3.762938492466896*^9, 3.7809156519899273`*^9, 3.780915787865285*^9, {
   3.782564572117865*^9, 3.7825645984021397`*^9}},
 CellLabel->
  "Out[854]//MatrixForm=",ExpressionUUID->"a9ec7a49-9860-4081-8a4f-\
e292eb4913fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s6", "]"}]], "Input",
 CellChangeTimes->{{3.7606360345571117`*^9, 3.760636039453999*^9}},
 CellLabel->
  "In[855]:=",ExpressionUUID->"d0667dbe-3c4b-44d0-a3b0-863573cabeb6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760636040230762*^9, 3.7606773876496763`*^9, 3.762429057230157*^9, 
   3.762429248130329*^9, 3.762429737747965*^9, 3.762429811670257*^9, 
   3.762430778282214*^9, 3.76288136864327*^9, 3.762918961998623*^9, 
   3.762938492514327*^9, 3.7809156552460403`*^9, 3.780915790585536*^9, {
   3.782564572136367*^9, 3.782564598423992*^9}},
 CellLabel->
  "Out[855]//MatrixForm=",ExpressionUUID->"12547daa-c99c-41ed-a5a2-\
82a851197c1c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s7", "]"}]], "Input",
 CellChangeTimes->{{3.7606360427860603`*^9, 3.760636047280512*^9}},
 CellLabel->
  "In[856]:=",ExpressionUUID->"f304d236-0223-4a00-8473-b3658ea6e060"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606360484229403`*^9, 3.7606773907427387`*^9, 3.762429057281247*^9, 
   3.762429248182886*^9, 3.7624297378278637`*^9, 3.762429811720255*^9, 
   3.762430780900505*^9, 3.76288137113093*^9, 3.762918962063768*^9, 
   3.762938492564681*^9, 3.780915658365449*^9, 3.7809157932388268`*^9, {
   3.7825645721455793`*^9, 3.7825645984329844`*^9}},
 CellLabel->
  "Out[856]//MatrixForm=",ExpressionUUID->"83c44bf6-ca18-4c1c-b59c-\
a4b8abb9aef5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s8", "]"}]], "Input",
 CellChangeTimes->{{3.760636050337884*^9, 3.760636055108347*^9}},
 CellLabel->
  "In[857]:=",ExpressionUUID->"ee7da33f-3ab0-4580-919e-d31bb727a934"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606360562751093`*^9, 3.760677394144589*^9, 3.762429057329523*^9, 
   3.762429248231818*^9, 3.76242973789382*^9, 3.762429811770894*^9, 
   3.762430783549037*^9, 3.762881373627346*^9, 3.762918962148597*^9, 
   3.762938492615638*^9, 3.780915661402095*^9, 3.7809157964855223`*^9, {
   3.782564572164632*^9, 3.782564598455003*^9}},
 CellLabel->
  "Out[857]//MatrixForm=",ExpressionUUID->"9b458f0d-f81a-4529-b024-\
6e82f45893b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s9", "]"}]], "Input",
 CellChangeTimes->{{3.760636058350872*^9, 3.7606360635656433`*^9}},
 CellLabel->
  "In[858]:=",ExpressionUUID->"f49e88ea-a569-41db-ae11-fb926db55dbe"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760636064415887*^9, 3.760677397165681*^9, 3.762429057380587*^9, 
   3.762429248282584*^9, 3.762429738009719*^9, 3.762429811819364*^9, 
   3.762430787016636*^9, 3.7628813763818817`*^9, 3.762918962217781*^9, 
   3.762938492675735*^9, 3.780915664339137*^9, 3.780915799108121*^9, {
   3.782564572173177*^9, 3.782564598463513*^9}},
 CellLabel->
  "Out[858]//MatrixForm=",ExpressionUUID->"9df36ebc-7529-4644-a8e7-\
2eecdd2a2985"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s10", "]"}]], "Input",
 CellChangeTimes->{{3.760677400964127*^9, 3.760677410232313*^9}},
 CellLabel->
  "In[859]:=",ExpressionUUID->"2ed471de-8c8c-4404-8bde-97503029a4e3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7606774118226852`*^9, 3.7624290574308643`*^9, 3.7624292483323393`*^9, 
   3.762429738186494*^9, 3.762429812020055*^9, 3.762430790136756*^9, 
   3.762881381568632*^9, 3.762918962280521*^9, 3.7629384927412643`*^9, 
   3.780915667175605*^9, 3.780915803317206*^9, {3.782564572192666*^9, 
   3.782564598485593*^9}},
 CellLabel->
  "Out[859]//MatrixForm=",ExpressionUUID->"1902b96e-af73-41ce-b1dc-\
9f91885a27fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s11", "]"}]], "Input",
 CellChangeTimes->{{3.760677414378298*^9, 3.7606774178590527`*^9}},
 CellLabel->
  "In[860]:=",ExpressionUUID->"08c72598-0836-4e13-bcc2-e45c6615aa60"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.760677418812731*^9, 3.7624290574779863`*^9, 3.7624292483814993`*^9, 
   3.762429738252873*^9, 3.762429812103312*^9, 3.762430793235797*^9, 
   3.762881384669199*^9, 3.76291896234781*^9, 3.7629384927836*^9, 
   3.780915670088532*^9, 3.7809158073030367`*^9, {3.7825645722023983`*^9, 
   3.782564598493537*^9}},
 CellLabel->
  "Out[860]//MatrixForm=",ExpressionUUID->"c45d33d0-0044-40d6-89e1-\
3364eb261156"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s12", "]"}]], "Input",
 CellChangeTimes->{{3.762881396173873*^9, 3.762881398340238*^9}},
 CellLabel->
  "In[861]:=",ExpressionUUID->"27ec82eb-433b-4c48-b39b-57aa0eddbadc"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7628813992459583`*^9, 3.762918962417486*^9, 3.7629384928334303`*^9, 
   3.780915676523889*^9, 3.780915810854784*^9, {3.782564572220804*^9, 
   3.782564598516314*^9}},
 CellLabel->
  "Out[861]//MatrixForm=",ExpressionUUID->"4e226bed-22cc-440f-921a-\
b6d4f33db56f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s13", "]"}]], "Input",
 CellChangeTimes->{{3.762881404060481*^9, 3.762881404124886*^9}},
 CellLabel->
  "In[862]:=",ExpressionUUID->"44542aa8-f897-496b-a923-c19c1e738015"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]},
     {"2", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "2"}]},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"1", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7628814052009363`*^9, 3.7629189624836206`*^9, 3.762938492882868*^9, 
   3.7809156803757553`*^9, 3.7809158143285103`*^9, {3.782564572230644*^9, 
   3.782564598527207*^9}},
 CellLabel->
  "Out[862]//MatrixForm=",ExpressionUUID->"1f2ca0d1-d5bd-4c76-9731-\
e712fe3ddae9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s14", "]"}]], "Input",
 CellChangeTimes->{{3.762881416493335*^9, 3.7628814165469713`*^9}},
 CellLabel->
  "In[863]:=",ExpressionUUID->"8a3ffbb2-6d17-4b73-bc05-f8d7f582a3c3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"2", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"2", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7628814177448463`*^9, 3.762918962551543*^9, 3.76293849293042*^9, 
   3.7809156851373672`*^9, 3.7809158183843613`*^9, {3.782564572249299*^9, 
   3.782564598550271*^9}},
 CellLabel->
  "Out[863]//MatrixForm=",ExpressionUUID->"2b778c74-bfdb-443d-a1b6-\
dd5157ae8ce9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s15", "]"}]], "Input",
 CellChangeTimes->{{3.762881430351165*^9, 3.762881430421863*^9}},
 CellLabel->
  "In[864]:=",ExpressionUUID->"67b653bf-598c-422b-af02-1996b502370c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"9", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0", "0", "0", 
      RowBox[{"-", "4"}]},
     {"4", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", 
      RowBox[{"-", "2"}]},
     {"4", 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", 
      RowBox[{"-", "2"}]},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", 
      RowBox[{"-", "2"}]},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", 
      RowBox[{"-", "2"}]},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", 
      RowBox[{"-", "2"}]},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", 
      RowBox[{"-", "2"}]},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], "0", "0", "0", 
      RowBox[{"-", "2"}]},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", "0", 
      RowBox[{"-", "2"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.762881431719388*^9, 3.762918962612631*^9, 3.762938493000308*^9, 
   3.780915689126082*^9, 3.780915821923328*^9, {3.7825645722584047`*^9, 
   3.782564598560183*^9}},
 CellLabel->
  "Out[864]//MatrixForm=",ExpressionUUID->"de39b7ba-8569-457f-a16b-\
8e9f32bebdfc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s16", "]"}]], "Input",
 CellChangeTimes->{{3.762881444205845*^9, 3.762881444266487*^9}},
 CellLabel->
  "In[865]:=",ExpressionUUID->"0427dfec-04ee-46f5-8734-e4d41913a5b2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"9", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0", "0"},
     {"4", "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.762881445184196*^9, 3.7629189626807537`*^9, 3.762938493081852*^9, 
   3.7809156930998087`*^9, 3.7809158248492737`*^9, {3.78256457227903*^9, 
   3.782564598583439*^9}},
 CellLabel->
  "Out[865]//MatrixForm=",ExpressionUUID->"f1003e96-6ff9-42db-b934-\
5ec03146e3e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s17", "]"}]], "Input",
 CellChangeTimes->{{3.780846819997264*^9, 3.780846820049361*^9}},
 CellLabel->
  "In[866]:=",ExpressionUUID->"8ca17aaa-029a-4ba4-b4be-9c5f7591455f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"37", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "24"}]},
     {"12", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "8"}]},
     {"24", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "15"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.780915699780911*^9, 3.780915827625691*^9, {3.782564572289092*^9, 
   3.7825645985936737`*^9}},
 CellLabel->
  "Out[866]//MatrixForm=",ExpressionUUID->"720026d5-04f5-49ae-8304-\
e97795401c48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s18", "]"}]], "Input",
 CellChangeTimes->{{3.780846824424285*^9, 3.7808468244683313`*^9}},
 CellLabel->
  "In[867]:=",ExpressionUUID->"80a048fd-642c-41c3-b830-e1a89a889ab4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"37", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "12"}]},
     {"24", 
      RowBox[{"-", "7"}], 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"24", 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "7"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "3"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.78091570315981*^9, 3.780915830640449*^9, {3.782564572308551*^9, 
   3.7825645986172457`*^9}},
 CellLabel->
  "Out[867]//MatrixForm=",ExpressionUUID->"1ea95658-39ac-4f35-ab32-\
39cdb5df6847"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s19", "]"}]], "Input",
 CellChangeTimes->{{3.780846828733363*^9, 3.780846828760777*^9}},
 CellLabel->
  "In[868]:=",ExpressionUUID->"b0731344-784b-43aa-89f8-6391d9379ef5"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"37", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], "0"},
     {"36", 
      RowBox[{"-", "17"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], "0"},
     {"12", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"12", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"12", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"12", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"12", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"12", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"12", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"12", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], "0"},
     {"12", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], "0"},
     {"12", 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.780915706695366*^9, 3.7809158333443117`*^9, {3.782564572319317*^9, 
   3.782564598627448*^9}},
 CellLabel->
  "Out[868]//MatrixForm=",ExpressionUUID->"4fc876f5-c7bf-4e4a-873b-\
22c891889a7b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "s20", "]"}]], "Input",
 CellChangeTimes->{{3.7808468329298067`*^9, 3.780846833368984*^9}},
 CellLabel->
  "In[869]:=",ExpressionUUID->"058c9df9-fd96-4cca-ac8c-90e1c1947c23"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"51", 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "10"}], 
      RowBox[{"-", "20"}]},
     {"20", 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "3"}], 
      RowBox[{"-", "8"}]},
     {"20", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "7"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7809157105856943`*^9, 3.780915836244833*^9, {3.782564572338933*^9, 
   3.782564598650814*^9}},
 CellLabel->
  "Out[869]//MatrixForm=",ExpressionUUID->"3076cb70-1986-457b-9743-\
d45f9f23dbd7"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
An infinite-order orientation-reversing element \\delta in the kernel of \
retraction R\
\>", "Subsection",
 CellChangeTimes->{{3.760634464119334*^9, 3.760634485916493*^9}, {
  3.760634734543194*^9, 3.76063473748796*^9}, {3.760636132276795*^9, 
  3.7606361468661547`*^9}, {3.762431105641549*^9, 
  3.7624311067499123`*^9}},ExpressionUUID->"63d98a01-892f-4a4f-9b58-\
ff9bcffbdfd5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"delta12", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"s2", ".", "s11", ".", "s18"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "delta12", "]"}]}], "Input",
 CellChangeTimes->{{3.758415296056778*^9, 3.7584153081303625`*^9}, {
   3.7584824392905817`*^9, 3.758482458591383*^9}, {3.758482617271708*^9, 
   3.758482619601139*^9}, {3.7584831141625404`*^9, 3.7584831281660757`*^9}, {
   3.7596991118523345`*^9, 3.759699118549096*^9}, {3.761935362236884*^9, 
   3.7619353672240076`*^9}, {3.761936164259014*^9, 3.761936167925892*^9}, {
   3.761936229081008*^9, 3.76193623403318*^9}, {3.762430828010108*^9, 
   3.762430832862754*^9}, {3.762881467083493*^9, 3.762881470418993*^9}, {
   3.7628817763978567`*^9, 3.762881789560995*^9}, 3.780846839232748*^9, {
   3.780915913868143*^9, 3.780915917710973*^9}},
 CellLabel->
  "In[870]:=",ExpressionUUID->"f8347670-1762-412b-bff4-070dae236733"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"37", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "6"}], 
      RowBox[{"-", "12"}]},
     {"24", 
      RowBox[{"-", "7"}], 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"24", 
      RowBox[{"-", "8"}], 
      RowBox[{"-", "7"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "8"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "4"}]},
     {
      RowBox[{"-", "12"}], "4", "4", "2", "2", "2", "2", "2", "2", "2", "2", 
      "1", "4"},
     {"12", 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "4"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "3"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.762430835548353*^9, 3.762881792974678*^9, 3.762918962746217*^9, 
   3.762938493122673*^9, 3.780915920556365*^9, 3.780915975892975*^9, {
   3.782564572350437*^9, 3.7825645986610107`*^9}},
 CellLabel->
  "Out[871]//MatrixForm=",ExpressionUUID->"93ef357c-87fb-4ed4-be5c-\
2bdd8008d3d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Eigenvalues", "[", "delta12", "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.780915929501769*^9, 3.7809159389161787`*^9}},
 CellLabel->
  "In[872]:=",ExpressionUUID->"a5e33928-d25c-4aa1-aaa9-5edff47e8db8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.732050807568877`", ",", 
   RowBox[{"-", "1.`"}], ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "0.2679491924311228`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.780915939762772*^9, 3.780915980406661*^9, {3.782564572369133*^9, 
   3.78256459868465*^9}},
 CellLabel->
  "Out[872]=",ExpressionUUID->"9f27674c-3c25-4bd2-b421-fedfdc182864"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", "delta12", "]"}]], "Input",
 CellChangeTimes->{{3.780915943168769*^9, 3.780915947817222*^9}},
 CellLabel->
  "In[873]:=",ExpressionUUID->"c9e1a421-2980-45ee-a099-2d288bb8254d"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{
  3.780915948245613*^9, 3.7809159827195263`*^9, {3.782564572376856*^9, 
   3.7825645986932497`*^9}},
 CellLabel->
  "Out[873]=",ExpressionUUID->"5a45631e-9b91-4d0c-a35d-b054ef7ecef5"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Computing the orders of reductions of \\delta", "Subsection",
 CellChangeTimes->{{3.7606298509619102`*^9, 3.760629902942297*^9}, {
   3.760629982671979*^9, 3.760629990092085*^9}, {3.7606302283738327`*^9, 
   3.760630247815802*^9}, {3.7606775728478603`*^9, 3.7606775752317867`*^9}, {
   3.760678057751779*^9, 3.7606780730029297`*^9}, {3.7624299543377132`*^9, 
   3.76242997076448*^9}, 
   3.762430098214566*^9},ExpressionUUID->"7192bff2-9d76-4c71-ba7f-\
64e2619586eb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixReductionOrder", "[", 
  RowBox[{"delta12", ",", "3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FactorInteger", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.762430864421631*^9, 3.76243087475142*^9}, {
  3.762430957466094*^9, 3.762430963047769*^9}, {3.762881825659951*^9, 
  3.762881830956327*^9}},
 CellLabel->
  "In[874]:=",ExpressionUUID->"a085376f-c149-4119-a5f9-08e9d60479b4"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{
  3.762430885034236*^9, 3.76243097389635*^9, 3.762881836441206*^9, 
   3.762918962813384*^9, 3.762938493215144*^9, 3.7809159528597603`*^9, {
   3.782564572396311*^9, 3.782564598715163*^9}},
 CellLabel->
  "Out[874]=",ExpressionUUID->"0701f66c-d842-412e-8679-67148f24b8bc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.762430885034236*^9, 3.76243097389635*^9, 3.762881836441206*^9, 
   3.762918962813384*^9, 3.762938493215144*^9, 3.7809159528597603`*^9, {
   3.782564572396311*^9, 3.782564598717306*^9}},
 CellLabel->
  "Out[875]=",ExpressionUUID->"489d6543-532c-4501-ae01-f80c98a9779e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixReductionOrder", "[", 
  RowBox[{"delta12", ",", "4"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FactorInteger", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.762430967097867*^9, 3.762430980731203*^9}, {
  3.7628818278908052`*^9, 3.76288183410518*^9}},
 CellLabel->
  "In[876]:=",ExpressionUUID->"54837d09-a252-4159-8cf3-ceeed42537b1"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{
  3.76243098754739*^9, 3.762881839607204*^9, 3.762918962896968*^9, 
   3.762938493284338*^9, 3.780915957429076*^9, {3.7825645724055758`*^9, 
   3.7825645987254257`*^9}},
 CellLabel->
  "Out[876]=",ExpressionUUID->"2a986618-e164-4969-a6f2-a64f655e3fcd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"2", ",", "2"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.76243098754739*^9, 3.762881839607204*^9, 3.762918962896968*^9, 
   3.762938493284338*^9, 3.780915957429076*^9, {3.7825645724055758`*^9, 
   3.782564598727611*^9}},
 CellLabel->
  "Out[877]=",ExpressionUUID->"230a4fd1-05c2-4169-ab3b-19f6ac0a68a3"]
}, Open  ]]
}, Open  ]]
}, Closed]]
},
WindowSize->{706, 415},
WindowMargins->{{250, Automatic}, {179, Automatic}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 289, 5, 67, "Section",ExpressionUUID->"14656a38-3554-4a83-a92b-19dd9f26f677"],
Cell[CellGroupData[{
Cell[894, 31, 598, 10, 54, "Subsection",ExpressionUUID->"610ac542-50a6-4bbb-9f63-b1922021cb61"],
Cell[1495, 43, 1585, 41, 115, "Input",ExpressionUUID->"e3862526-5b9f-4a42-8dc3-dbdd97875f95"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[3129, 90, 526, 8, 53, "Section",ExpressionUUID->"4fe39d2d-a7ae-47be-adfb-2dbc19ef7abc"],
Cell[CellGroupData[{
Cell[3680, 102, 664, 9, 54, "Subsection",ExpressionUUID->"586cf5a7-92da-4e89-8aad-2a8dbfa9eab8"],
Cell[4347, 113, 1341, 27, 30, "Input",ExpressionUUID->"6b64ac43-4543-44e4-b995-6564add16920"]
}, Closed]],
Cell[CellGroupData[{
Cell[5725, 145, 416, 6, 38, "Subsection",ExpressionUUID->"caa59798-9eb5-4c6f-84bf-6e76f6475984"],
Cell[6144, 153, 720, 13, 30, "Input",ExpressionUUID->"50a66ac0-62f9-4740-9d9d-ba0add622f50"]
}, Closed]],
Cell[CellGroupData[{
Cell[6901, 171, 286, 4, 38, "Subsection",ExpressionUUID->"0240d1ab-7609-44f6-84ae-bbc687460272"],
Cell[7190, 177, 3218, 89, 240, "Input",ExpressionUUID->"6a29a262-c608-4008-ad3a-3ad963063c5c"]
}, Closed]],
Cell[CellGroupData[{
Cell[10445, 271, 497, 7, 38, "Subsection",ExpressionUUID->"242f1bf9-b52c-454f-a26c-f6c70bf4069e"],
Cell[10945, 280, 1232, 31, 136, "Input",ExpressionUUID->"1f1ee5de-24f9-47f0-a0e9-29be6458ba84"]
}, Closed]],
Cell[CellGroupData[{
Cell[12214, 316, 447, 6, 38, "Subsection",ExpressionUUID->"2ff5c21b-63ac-45d6-a0f5-f0dd525ead4b"],
Cell[12664, 324, 1403, 30, 136, "Input",ExpressionUUID->"c9498557-9dd8-4086-bfe6-440cc515398a"]
}, Closed]],
Cell[CellGroupData[{
Cell[14104, 359, 411, 6, 38, "Subsection",ExpressionUUID->"7e737d73-cc39-4cf9-af68-57d9476e8d7c"],
Cell[CellGroupData[{
Cell[14540, 369, 233, 5, 30, "Input",ExpressionUUID->"dc8b00c0-699f-4106-950d-9f8e7a350a6d"],
Cell[14776, 376, 1315, 31, 70, "Output",ExpressionUUID->"92bd2d9f-b420-46d8-af00-954f12736007"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16128, 412, 233, 5, 30, "Input",ExpressionUUID->"e288c437-0db0-4f4d-8135-8f0f6e13934d"],
Cell[16364, 419, 1294, 31, 70, "Output",ExpressionUUID->"7b61e9d9-dc3f-4ce5-94e6-6e675a77d681"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17695, 455, 235, 5, 30, "Input",ExpressionUUID->"a82dd587-5344-4842-999d-4ac4e4db0c93"],
Cell[17933, 462, 1291, 31, 70, "Output",ExpressionUUID->"527cdc8a-8612-4137-b672-9a76b82cac70"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19261, 498, 231, 5, 30, "Input",ExpressionUUID->"de143f0a-2f4f-4f38-a08f-88362606a4ab"],
Cell[19495, 505, 1325, 31, 70, "Output",ExpressionUUID->"68eff6a8-3457-45e5-b275-c1e32dfdf8bb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20857, 541, 232, 5, 30, "Input",ExpressionUUID->"894f7f7f-a038-45c8-93ff-e8378c9c660d"],
Cell[21092, 548, 1429, 36, 70, "Output",ExpressionUUID->"238513f9-7b35-48a1-9e9e-b51b1fc00a65"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22558, 589, 233, 5, 30, "Input",ExpressionUUID->"e4d434a9-0646-41c7-85fd-a57f607b9ddf"],
Cell[22794, 596, 1478, 37, 70, "Output",ExpressionUUID->"67435d1c-7528-41b1-a058-e894d84bfbeb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24321, 639, 391, 8, 65, "Subsection",ExpressionUUID->"aab84984-52da-463b-a117-0f46e675ce0c"],
Cell[CellGroupData[{
Cell[24737, 651, 812, 15, 52, "Input",ExpressionUUID->"348f548c-89dd-4901-95d4-d437baef595c"],
Cell[25552, 668, 1494, 36, 70, "Output",ExpressionUUID->"1f61a3c5-45a9-4b8a-8313-4d9b1800de36"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27083, 709, 246, 5, 30, "Input",ExpressionUUID->"2a759f94-8c9d-4bf9-9d60-eb18f0c5e176"],
Cell[27332, 716, 341, 8, 70, "Output",ExpressionUUID->"0c00cff7-939c-450d-85e4-3f4f11a7590c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27710, 729, 209, 4, 30, "Input",ExpressionUUID->"d9a6952a-d5d5-4b9d-ab14-fb173df27d1b"],
Cell[27922, 735, 218, 5, 70, "Output",ExpressionUUID->"5e2624be-825c-492a-86e6-705f688534d8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[28189, 746, 473, 7, 38, "Subsection",ExpressionUUID->"e8008585-aa71-4b4c-bc7f-394d3ac6bfe6"],
Cell[CellGroupData[{
Cell[28687, 757, 1095, 17, 52, "Input",ExpressionUUID->"afea84c4-2593-4643-be6d-fcfd748ce6d8"],
Cell[29785, 776, 1150, 17, 70, "Output",ExpressionUUID->"005296ce-fb23-4bab-80be-8d829babf34e"],
Cell[30938, 795, 1219, 20, 70, "Output",ExpressionUUID->"dc00e8df-334f-4111-a228-74269ac7a847"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32194, 820, 861, 14, 52, "Input",ExpressionUUID->"49f9084f-2002-4f2b-b28f-b68409b03219"],
Cell[33058, 836, 813, 13, 70, "Output",ExpressionUUID->"3989c6f8-86cd-4171-9cd3-72384a154dbb"],
Cell[33874, 851, 884, 16, 70, "Output",ExpressionUUID->"19082896-9ef6-4a85-8559-773d25494e8c"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[34819, 874, 514, 8, 53, "Section",ExpressionUUID->"cd7e68ce-e370-45eb-92c6-48203df48d15"],
Cell[35336, 884, 362, 7, 58, "Text",ExpressionUUID->"b65a25c3-7d6a-4de5-b216-42a9b31c81f0"]
}, Closed]],
Cell[CellGroupData[{
Cell[35735, 896, 474, 7, 53, "Section",ExpressionUUID->"af0b40ee-fdc9-4b29-8905-b37981525bae"],
Cell[CellGroupData[{
Cell[36234, 907, 567, 8, 54, "Subsection",ExpressionUUID->"730c6207-a195-49ae-9f66-077bf73a6204"],
Cell[36804, 917, 1525, 33, 52, "Input",ExpressionUUID->"77be2890-0d6a-47a9-ad78-289bf36c5975"]
}, Closed]],
Cell[CellGroupData[{
Cell[38366, 955, 319, 5, 38, "Subsection",ExpressionUUID->"70d341a4-8d30-4844-83d2-91e3f47e315b"],
Cell[38688, 962, 760, 15, 30, "Input",ExpressionUUID->"871ff194-4304-4f57-b29a-07ff9712f264"]
}, Closed]],
Cell[CellGroupData[{
Cell[39485, 982, 286, 4, 38, "Subsection",ExpressionUUID->"e4380746-7de5-49b8-8133-cee5d4bfd627"],
Cell[39774, 988, 6873, 183, 1048, "Input",ExpressionUUID->"34e352d7-d495-4d2e-b47f-e50f11b8fca4"]
}, Closed]],
Cell[CellGroupData[{
Cell[46684, 1176, 365, 6, 38, "Subsection",ExpressionUUID->"662f4000-4db0-4f49-8584-c2deaef188bc"],
Cell[47052, 1184, 2107, 62, 262, "Input",ExpressionUUID->"a8ef6433-82fe-4e12-96a0-1a641ee54261"]
}, Closed]],
Cell[CellGroupData[{
Cell[49196, 1251, 395, 6, 38, "Subsection",ExpressionUUID->"3a348410-8c05-429e-9c76-281fd6096cce"],
Cell[49594, 1259, 1948, 49, 262, "Input",ExpressionUUID->"60232946-349d-41af-9992-a5064debfea8"]
}, Closed]],
Cell[CellGroupData[{
Cell[51579, 1313, 317, 5, 38, "Subsection",ExpressionUUID->"d998c27d-9b86-4efd-92dd-4afa1a3035ff"],
Cell[CellGroupData[{
Cell[51921, 1322, 233, 5, 30, "Input",ExpressionUUID->"cea8998c-7fa0-4860-8cd2-0778778c5f9d"],
Cell[52157, 1329, 1571, 33, 70, "Output",ExpressionUUID->"05af378c-39db-4f69-b37e-aa487bdc24ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53765, 1367, 233, 5, 30, "Input",ExpressionUUID->"1fcd4053-d1a1-48fb-8b40-5cc233a72fda"],
Cell[54001, 1374, 1563, 33, 70, "Output",ExpressionUUID->"b190b42e-bfc3-42df-9554-15ad1e6a3a7f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55601, 1412, 235, 5, 30, "Input",ExpressionUUID->"df529545-6c31-42eb-9ebe-717e1d237304"],
Cell[55839, 1419, 1556, 33, 70, "Output",ExpressionUUID->"504f4e94-aaef-4e57-b4d6-bf8be69f1212"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57432, 1457, 231, 5, 30, "Input",ExpressionUUID->"c6d30448-a96d-4e97-a1b3-a7753e7a4d62"],
Cell[57666, 1464, 1574, 33, 70, "Output",ExpressionUUID->"cd859d64-9d96-4ce8-841e-fd6fd0f248db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59277, 1502, 232, 5, 30, "Input",ExpressionUUID->"8ce83efd-c0c7-449f-a1b1-0da8ab7e11b9"],
Cell[59512, 1509, 1561, 33, 70, "Output",ExpressionUUID->"cdb0ef34-bc79-465d-ba74-1f4ed0f8d726"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61110, 1547, 233, 5, 30, "Input",ExpressionUUID->"6f5d0aa8-ae62-469a-bd4c-3c8ee00c7554"],
Cell[61346, 1554, 1560, 33, 70, "Output",ExpressionUUID->"a811eacc-47a1-49f5-a633-29d7a8f08c46"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62943, 1592, 231, 5, 30, "Input",ExpressionUUID->"f2c11a01-468a-49f0-abf6-2e34921a0b02"],
Cell[63177, 1599, 1568, 33, 70, "Output",ExpressionUUID->"519bc329-293a-4615-8d12-694f1a52bee2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64782, 1637, 230, 5, 30, "Input",ExpressionUUID->"7fdc72e0-f180-4000-bd39-6c32848c771c"],
Cell[65015, 1644, 1561, 33, 70, "Output",ExpressionUUID->"ea33b729-c7a6-4e58-8d38-298f836276a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66613, 1682, 233, 5, 30, "Input",ExpressionUUID->"3189064c-4f67-4f64-9314-79247dc5f89c"],
Cell[66849, 1689, 1585, 34, 70, "Output",ExpressionUUID->"cb6ceb69-ff27-436e-b3ec-9c5e48c3eb04"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68471, 1728, 232, 5, 30, "Input",ExpressionUUID->"0d39c6b4-fc54-41f4-bc24-1251cc278684"],
Cell[68706, 1735, 1444, 33, 70, "Output",ExpressionUUID->"3992de36-ae08-4a02-be54-2f045d0591f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70187, 1773, 236, 5, 30, "Input",ExpressionUUID->"11a975d0-fd8e-4447-987c-8870c9b2560f"],
Cell[70426, 1780, 1726, 47, 70, "Output",ExpressionUUID->"7cef416f-8b2a-4b98-8ed0-a7f7717db43c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72189, 1832, 236, 5, 30, "Input",ExpressionUUID->"1fc9d48c-ffde-43d9-a830-a34aace3697d"],
Cell[72428, 1839, 3380, 121, 70, "Output",ExpressionUUID->"ebe69cf4-a24b-4754-ab66-132e8fb0be70"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[75857, 1966, 391, 8, 65, "Subsection",ExpressionUUID->"88c0f228-7682-41c7-a9bd-87f8223926df"],
Cell[CellGroupData[{
Cell[76273, 1978, 966, 17, 52, "Input",ExpressionUUID->"d62adebe-fdf9-46d9-85c2-4d070c9e655f"],
Cell[77242, 1997, 2119, 52, 70, "Output",ExpressionUUID->"8918d09b-c61c-4a23-a09e-c3c2c6e1afde"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79398, 2054, 297, 6, 30, "Input",ExpressionUUID->"715be0ca-c5ca-4263-8d86-dbb5b258c682"],
Cell[79698, 2062, 1118, 24, 70, "Output",ExpressionUUID->"48162323-337a-44c8-b2cc-df5cbc5a4107"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80853, 2091, 210, 4, 30, "Input",ExpressionUUID->"1cbfe1d0-d9df-4e4c-90df-d07ac33fc0c1"],
Cell[81066, 2097, 219, 5, 70, "Output",ExpressionUUID->"769589eb-b30e-4d9e-9da2-0c6b46534e74"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[81334, 2108, 473, 7, 38, "Subsection",ExpressionUUID->"8b7c25c4-3f9a-4f93-adb3-89572eb562d1"],
Cell[CellGroupData[{
Cell[81832, 2119, 997, 16, 52, "Input",ExpressionUUID->"e57ff32a-1b8b-4b39-81fa-c9eec57691c1"],
Cell[82832, 2137, 981, 15, 70, "Output",ExpressionUUID->"dc9201d2-df4c-423f-94ba-69972987b35b"],
Cell[83816, 2154, 1180, 23, 70, "Output",ExpressionUUID->"e2d7a72f-72b9-44de-a7d1-87a5ad1c298e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85033, 2182, 757, 12, 52, "Input",ExpressionUUID->"63fe9696-2149-4653-b177-142c55c4c3b0"],
Cell[85793, 2196, 642, 10, 70, "Output",ExpressionUUID->"b1502587-f056-4b5e-88cb-e35a4239e924"],
Cell[86438, 2208, 782, 16, 70, "Output",ExpressionUUID->"df5215d2-7241-4213-af84-e0962c94f5d7"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[87281, 2231, 755, 11, 53, "Section",ExpressionUUID->"d21099e0-fb29-47c2-8e55-d00c421b8f82"],
Cell[88039, 2244, 508, 9, 58, "Text",ExpressionUUID->"214673db-2472-4331-bc2a-d64c213c8b67"]
}, Closed]],
Cell[CellGroupData[{
Cell[88584, 2258, 326, 5, 53, "Section",ExpressionUUID->"a4e36302-2b09-406d-a78a-28ee4bba0ff6"],
Cell[CellGroupData[{
Cell[88935, 2267, 443, 6, 54, "Subsection",ExpressionUUID->"9ad0392f-cec1-4a4d-b134-d6e8579cf31f"],
Cell[89381, 2275, 1318, 36, 52, "Input",ExpressionUUID->"872bee97-9c55-413a-953b-0cc1bd07a6d5"]
}, Closed]],
Cell[CellGroupData[{
Cell[90736, 2316, 320, 5, 38, "Subsection",ExpressionUUID->"00fe4074-8f93-4b7a-8ac6-be5db7e697cc"],
Cell[91059, 2323, 879, 16, 30, "Input",ExpressionUUID->"aeebe372-4693-44a4-9ef9-c21bed857cec"]
}, Closed]],
Cell[CellGroupData[{
Cell[91975, 2344, 236, 4, 38, "Subsection",ExpressionUUID->"e32f806d-9e59-408a-8aeb-34ea88e88a2f"],
Cell[92214, 2350, 9084, 231, 1304, "Input",ExpressionUUID->"211f6335-f05f-4e29-bb8b-381245ba4a20"]
}, Closed]],
Cell[CellGroupData[{
Cell[101335, 2586, 541, 8, 38, "Subsection",ExpressionUUID->"53784c28-bac3-4df7-b4d6-c9459da18d0e"],
Cell[101879, 2596, 4508, 110, 446, "Input",ExpressionUUID->"85f83c3b-e0e7-4950-92bc-aaec05683032"]
}, Closed]],
Cell[CellGroupData[{
Cell[106424, 2711, 486, 7, 38, "Subsection",ExpressionUUID->"712e8d6d-ff9f-4e28-9687-0443595a9748"],
Cell[106913, 2720, 2870, 73, 446, "Input",ExpressionUUID->"9c1d1f4a-761a-4ebf-94ff-8cf3eec42b29"]
}, Closed]],
Cell[CellGroupData[{
Cell[109820, 2798, 265, 4, 38, "Subsection",ExpressionUUID->"fdb5b133-7c1b-448f-8775-8b0026555aa9"],
Cell[CellGroupData[{
Cell[110110, 2806, 215, 4, 30, "Input",ExpressionUUID->"35bb3ec5-d7e3-4474-9f30-983a81db1e8b"],
Cell[110328, 2812, 1914, 37, 230, "Output",ExpressionUUID->"f78694d3-8e1a-4ccd-93d7-700d244dd4a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112279, 2854, 213, 4, 30, "Input",ExpressionUUID->"ab739097-e400-4fb5-91c3-dd62d96af63b"],
Cell[112495, 2860, 1749, 35, 230, "Output",ExpressionUUID->"adfe0203-dc25-455c-82bf-b46d9bd0d2ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114281, 2900, 213, 4, 30, "Input",ExpressionUUID->"8facb9f5-da9c-4185-bbbc-5641640b2341"],
Cell[114497, 2906, 1722, 34, 230, "Output",ExpressionUUID->"b98b76b2-5ece-4174-9e22-a58688a86bc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116256, 2945, 215, 4, 30, "Input",ExpressionUUID->"9c2a4e5b-0059-40c6-b784-f852d5d695fb"],
Cell[116474, 2951, 1732, 34, 288, "Output",ExpressionUUID->"217917dd-83ab-434e-86e0-2368a76a9d78"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118243, 2990, 215, 4, 30, "Input",ExpressionUUID->"fbbbef07-b0ed-4d96-af0f-f90f26362824"],
Cell[118461, 2996, 1705, 34, 230, "Output",ExpressionUUID->"35f1576c-6af2-4142-a803-b986c38a1a15"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120203, 3035, 215, 4, 30, "Input",ExpressionUUID->"964f09de-3fba-422e-8061-74872faa30fe"],
Cell[120421, 3041, 1705, 34, 70, "Output",ExpressionUUID->"e9462599-f38f-4298-8bba-e8634a04feb6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122163, 3080, 215, 4, 30, "Input",ExpressionUUID->"b57eec44-cdc2-42bb-ba90-9ef1f69869d0"],
Cell[122381, 3086, 1702, 34, 70, "Output",ExpressionUUID->"dc1b9471-346d-490b-86ca-81ddbccd6c0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[124120, 3125, 213, 4, 30, "Input",ExpressionUUID->"bb75233f-d9b1-43f6-b066-5532c75b74e8"],
Cell[124336, 3131, 1781, 36, 70, "Output",ExpressionUUID->"93c9e2ce-274c-4c38-bbd8-e89a2d393397"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126154, 3172, 215, 4, 30, "Input",ExpressionUUID->"6f8e5e31-32b2-41e2-abb8-98d8215309d6"],
Cell[126372, 3178, 1700, 34, 70, "Output",ExpressionUUID->"b26fb5dc-f22b-454f-b6e4-11dd6b95f7f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128109, 3217, 214, 4, 30, "Input",ExpressionUUID->"70efd469-4baf-4035-9ebf-986dfa54c9f4"],
Cell[128326, 3223, 1686, 34, 70, "Output",ExpressionUUID->"2a960c44-9c5a-489e-995e-04093464f6ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130049, 3262, 216, 4, 30, "Input",ExpressionUUID->"594aca02-2ba3-4913-91fa-10c950c8dcff"],
Cell[130268, 3268, 1705, 35, 70, "Output",ExpressionUUID->"c3beca6d-cdf3-4f3a-bbe4-5a2f22dea4fe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132010, 3308, 214, 4, 30, "Input",ExpressionUUID->"96d81b82-f95a-4d9b-a195-439e963109ed"],
Cell[132227, 3314, 1738, 41, 70, "Output",ExpressionUUID->"957759bc-b8e0-4dbf-b97d-365c1ed3ccbf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134002, 3360, 213, 4, 30, "Input",ExpressionUUID->"c27cbc88-e75d-44d1-bfb6-27b3f0c53812"],
Cell[134218, 3366, 1652, 37, 70, "Output",ExpressionUUID->"0bf72ab9-006c-43a9-abdd-1ef60c908149"]
}, Open  ]],
Cell[CellGroupData[{
Cell[135907, 3408, 212, 4, 30, "Input",ExpressionUUID->"049f2892-9cbb-4e81-9194-f50054b5bfc1"],
Cell[136122, 3414, 1898, 48, 70, "Output",ExpressionUUID->"79876da8-b2e5-495b-82c6-cd337e0ba6a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138057, 3467, 214, 4, 30, "Input",ExpressionUUID->"7fac820c-9eb4-41c6-a3d5-3f8b514cd979"],
Cell[138274, 3473, 3039, 98, 70, "Output",ExpressionUUID->"1dc3bd06-a550-4d3f-8a40-2f367a3db8ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141350, 3576, 218, 4, 30, "Input",ExpressionUUID->"229bb3fb-449f-4a34-8901-5c11829a2cac"],
Cell[141571, 3582, 3274, 113, 70, "Output",ExpressionUUID->"748f3e3c-19ae-4ee4-bda3-4df0e20d9907"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144882, 3700, 214, 4, 30, "Input",ExpressionUUID->"2b508d45-1d0f-420e-b631-3862ba53878d"],
Cell[145099, 3706, 4241, 157, 70, "Output",ExpressionUUID->"426beae8-d6d2-4218-a628-3bd0dfab581b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149377, 3868, 216, 4, 30, "Input",ExpressionUUID->"23c7ffff-17d2-42d8-a449-fe6072f00373"],
Cell[149596, 3874, 3898, 141, 70, "Output",ExpressionUUID->"f36ddde7-a14b-48ac-9da2-2adc3fbc4718"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[153543, 4021, 388, 8, 65, "Subsection",ExpressionUUID->"485d0b94-10d6-4b57-a580-75bcacfbd291"],
Cell[CellGroupData[{
Cell[153956, 4033, 949, 17, 52, "Input",ExpressionUUID->"598ab140-94cb-4810-88c6-2c2e07709847"],
Cell[154908, 4052, 3607, 113, 230, "Output",ExpressionUUID->"17ed0b53-6184-4c82-8d52-e014d8ee07ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158552, 4170, 362, 8, 30, "Input",ExpressionUUID->"4839f1ec-6fe4-4388-b819-e01b060d07d3"],
Cell[158917, 4180, 1569, 34, 288, "Output",ExpressionUUID->"f9fffad7-2daf-4a8a-aab8-46da4b1fe609"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160523, 4219, 211, 4, 30, "Input",ExpressionUUID->"1dd4ca62-cbea-4369-b68a-36d2b4e186b4"],
Cell[160737, 4225, 245, 6, 34, "Output",ExpressionUUID->"8007469c-c208-45e0-9681-4c50cbe40310"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[161031, 4237, 473, 7, 38, "Subsection",ExpressionUUID->"14556717-0d24-4fdd-a973-5b86c82671d5"],
Cell[CellGroupData[{
Cell[161529, 4248, 373, 7, 52, "Input",ExpressionUUID->"d945a90e-5408-4c8e-8e7d-4b2b9fe59d1a"],
Cell[161905, 4257, 420, 7, 34, "Output",ExpressionUUID->"a6d8c8de-0490-4603-9052-29232db1662c"],
Cell[162328, 4266, 563, 13, 34, "Output",ExpressionUUID->"2868e71c-8cc4-4905-9456-f13ef137f277"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162928, 4284, 513, 9, 52, "Input",ExpressionUUID->"f615c14c-e1fb-4d52-ad0e-c5edf3f52cc5"],
Cell[163444, 4295, 483, 8, 34, "Output",ExpressionUUID->"658f8878-92d1-441f-b503-48ba03add590"],
Cell[163930, 4305, 551, 11, 68, "Output",ExpressionUUID->"034a385c-9c64-4cc5-a223-9d28e1ed871f"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[164542, 4323, 382, 6, 53, "Section",ExpressionUUID->"f39bbcab-bee0-4e54-869d-6caa69f07244"],
Cell[CellGroupData[{
Cell[164949, 4333, 425, 6, 54, "Subsection",ExpressionUUID->"8519edb1-8a7b-4ab6-9810-6fa158fbaeec"],
Cell[165377, 4341, 1084, 29, 52, "Input",ExpressionUUID->"607651ad-9fdc-4ba0-a855-bdd85be18eaa"]
}, Closed]],
Cell[CellGroupData[{
Cell[166498, 4375, 368, 6, 38, "Subsection",ExpressionUUID->"ce305870-c929-4418-8080-f0ca7fd17dc0"],
Cell[166869, 4383, 942, 18, 30, "Input",ExpressionUUID->"c43e9da7-cdeb-4142-8dd0-96862d17825b"]
}, Closed]],
Cell[CellGroupData[{
Cell[167848, 4406, 236, 4, 38, "Subsection",ExpressionUUID->"7fbc4e6d-af93-4c8f-8b6f-d3dae6dfab50"],
Cell[168087, 4412, 10048, 247, 1345, "Input",ExpressionUUID->"3a8e05de-25f1-4f33-9a71-d74734d48e19"]
}, Closed]],
Cell[CellGroupData[{
Cell[178172, 4664, 591, 9, 38, "Subsection",ExpressionUUID->"da3e0004-7cac-4c4d-977a-0df2b9d9c86f"],
Cell[178766, 4675, 3412, 104, 430, "Input",ExpressionUUID->"754d01f8-9e26-447e-8559-a7710488c502"]
}, Closed]],
Cell[CellGroupData[{
Cell[182215, 4784, 538, 8, 38, "Subsection",ExpressionUUID->"c991a6c3-00af-43fe-9b38-4bd6fadeab51"],
Cell[182756, 4794, 3166, 80, 430, "Input",ExpressionUUID->"35a24140-f502-484e-9032-6989a9bcf2cf"]
}, Closed]],
Cell[CellGroupData[{
Cell[185959, 4879, 265, 4, 38, "Subsection",ExpressionUUID->"649dbbac-00de-418e-ab16-dc632f9d07d4"],
Cell[CellGroupData[{
Cell[186249, 4887, 215, 4, 30, "Input",ExpressionUUID->"eca03fbd-748c-4460-b097-09d4ee8f9dfc"],
Cell[186467, 4893, 1955, 37, 70, "Output",ExpressionUUID->"afe1ead6-00de-4e23-9e2e-9db0900b0b54"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188459, 4935, 213, 4, 30, "Input",ExpressionUUID->"a91fac41-822a-476f-8d53-1afb068077b0"],
Cell[188675, 4941, 1844, 35, 70, "Output",ExpressionUUID->"2e3cfa9f-b3c6-4192-92e2-5eee5372e578"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190556, 4981, 213, 4, 30, "Input",ExpressionUUID->"c56ad2a8-2816-4cb0-8efb-6588f93f0b46"],
Cell[190772, 4987, 1828, 35, 70, "Output",ExpressionUUID->"62f5754a-2979-4a60-bd28-ddfbfe06cc7d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192637, 5027, 215, 4, 30, "Input",ExpressionUUID->"3008c6b0-cdb3-4dc6-818e-5ee143a275b2"],
Cell[192855, 5033, 1838, 35, 70, "Output",ExpressionUUID->"6ca64ddd-ba53-4866-8512-7d3179f34d57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194730, 5073, 215, 4, 30, "Input",ExpressionUUID->"e1630fce-9062-47c7-b79f-ba7a97fb684b"],
Cell[194948, 5079, 1837, 35, 70, "Output",ExpressionUUID->"a9ec7a49-9860-4081-8a4f-e292eb4913fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196822, 5119, 215, 4, 30, "Input",ExpressionUUID->"d0667dbe-3c4b-44d0-a3b0-863573cabeb6"],
Cell[197040, 5125, 1833, 35, 70, "Output",ExpressionUUID->"12547daa-c99c-41ed-a5a2-82a851197c1c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198910, 5165, 215, 4, 30, "Input",ExpressionUUID->"f304d236-0223-4a00-8473-b3658ea6e060"],
Cell[199128, 5171, 1841, 35, 70, "Output",ExpressionUUID->"83c44bf6-ca18-4c1c-b59c-a4b8abb9aef5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201006, 5211, 213, 4, 30, "Input",ExpressionUUID->"ee7da33f-3ab0-4580-919e-d31bb727a934"],
Cell[201222, 5217, 1833, 35, 70, "Output",ExpressionUUID->"9b458f0d-f81a-4529-b024-6e82f45893b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[203092, 5257, 215, 4, 30, "Input",ExpressionUUID->"f49e88ea-a569-41db-ae11-fb926db55dbe"],
Cell[203310, 5263, 1832, 35, 70, "Output",ExpressionUUID->"9df36ebc-7529-4644-a8e7-2eecdd2a2985"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205179, 5303, 214, 4, 30, "Input",ExpressionUUID->"2ed471de-8c8c-4404-8bde-97503029a4e3"],
Cell[205396, 5309, 1816, 35, 70, "Output",ExpressionUUID->"1902b96e-af73-41ce-b1dc-9f91885a27fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207249, 5349, 216, 4, 30, "Input",ExpressionUUID->"08c72598-0836-4e13-bcc2-e45c6615aa60"],
Cell[207468, 5355, 1835, 36, 70, "Output",ExpressionUUID->"c45d33d0-0044-40d6-89e1-3364eb261156"]
}, Open  ]],
Cell[CellGroupData[{
Cell[209340, 5396, 214, 4, 30, "Input",ExpressionUUID->"27ec82eb-433b-4c48-b39b-57aa0eddbadc"],
Cell[209557, 5402, 1694, 34, 70, "Output",ExpressionUUID->"4e226bed-22cc-440f-921a-b6d4f33db56f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211288, 5441, 214, 4, 30, "Input",ExpressionUUID->"44542aa8-f897-496b-a923-c19c1e738015"],
Cell[211505, 5447, 1793, 39, 70, "Output",ExpressionUUID->"1f2ca0d1-d5bd-4c76-9731-e712fe3ddae9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213335, 5491, 216, 4, 30, "Input",ExpressionUUID->"8a3ffbb2-6d17-4b73-bc05-f8d7f582a3c3"],
Cell[213554, 5497, 2025, 49, 70, "Output",ExpressionUUID->"2b778c74-bfdb-443d-a1b6-dd5157ae8ce9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215616, 5551, 214, 4, 30, "Input",ExpressionUUID->"67b653bf-598c-422b-af02-1996b502370c"],
Cell[215833, 5557, 3474, 115, 70, "Output",ExpressionUUID->"de39b7ba-8569-457f-a16b-8e9f32bebdfc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219344, 5677, 214, 4, 30, "Input",ExpressionUUID->"0427dfec-04ee-46f5-8734-e4d41913a5b2"],
Cell[219561, 5683, 3873, 133, 70, "Output",ExpressionUUID->"f1003e96-6ff9-42db-b934-5ec03146e3e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223471, 5821, 214, 4, 30, "Input",ExpressionUUID->"8ca17aaa-029a-4ba4-b4be-9c5f7591455f"],
Cell[223688, 5827, 5047, 188, 70, "Output",ExpressionUUID->"720026d5-04f5-49ae-8304-e97795401c48"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228772, 6020, 216, 4, 30, "Input",ExpressionUUID->"80a048fd-642c-41c3-b830-e1a89a889ab4"],
Cell[228991, 6026, 5047, 188, 70, "Output",ExpressionUUID->"1ea95658-39ac-4f35-ab32-39cdb5df6847"]
}, Open  ]],
Cell[CellGroupData[{
Cell[234075, 6219, 214, 4, 30, "Input",ExpressionUUID->"b0731344-784b-43aa-89f8-6391d9379ef5"],
Cell[234292, 6225, 4518, 164, 70, "Output",ExpressionUUID->"4fc876f5-c7bf-4e4a-873b-22c891889a7b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238847, 6394, 216, 4, 30, "Input",ExpressionUUID->"058c9df9-fd96-4cca-ac8c-90e1c1947c23"],
Cell[239066, 6400, 5057, 188, 70, "Output",ExpressionUUID->"3076cb70-1986-457b-9743-d45f9f23dbd7"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[244172, 6594, 390, 8, 65, "Subsection",ExpressionUUID->"63d98a01-892f-4a4f-9b58-ff9bcffbdfd5"],
Cell[CellGroupData[{
Cell[244587, 6606, 946, 17, 52, "Input",ExpressionUUID->"f8347670-1762-412b-bff4-070dae236733"],
Cell[245536, 6625, 4905, 179, 70, "Output",ExpressionUUID->"93ef357c-87fb-4ed4-be5c-2bdd8008d3d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[250478, 6809, 245, 5, 30, "Input",ExpressionUUID->"a5e33928-d25c-4aa1-aaa9-5edff47e8db8"],
Cell[250726, 6816, 466, 10, 70, "Output",ExpressionUUID->"9f27674c-3c25-4bd2-b421-fedfdc182864"]
}, Open  ]],
Cell[CellGroupData[{
Cell[251229, 6831, 211, 4, 30, "Input",ExpressionUUID->"c9e1a421-2980-45ee-a099-2d288bb8254d"],
Cell[251443, 6837, 249, 6, 70, "Output",ExpressionUUID->"5a45631e-9b91-4d0c-a35d-b054ef7ecef5"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[251741, 6849, 473, 7, 38, "Subsection",ExpressionUUID->"7192bff2-9d76-4c71-ba7f-64e2619586eb"],
Cell[CellGroupData[{
Cell[252239, 6860, 417, 8, 52, "Input",ExpressionUUID->"a085376f-c149-4119-a5f9-08e9d60479b4"],
Cell[252659, 6870, 321, 6, 70, "Output",ExpressionUUID->"0701f66c-d842-412e-8679-67148f24b8bc"],
Cell[252983, 6878, 464, 12, 70, "Output",ExpressionUUID->"489d6543-532c-4501-ae01-f80c98a9779e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[253484, 6895, 370, 7, 52, "Input",ExpressionUUID->"54837d09-a252-4159-8cf3-ceeed42537b1"],
Cell[253857, 6904, 301, 6, 70, "Output",ExpressionUUID->"2a986618-e164-4969-a6f2-a64f655e3fcd"],
Cell[254161, 6912, 368, 9, 70, "Output",ExpressionUUID->"230a4fd1-05c2-4169-ab3b-19f6ac0a68a3"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}
]
*)

